1 



>PIP LST:=CBI0S&.ASM[T8] 



************************************************************************ 



Morrow Designs CBIOS for CP/M Version 2.2. 

This CBIOS can be configured to run with the following devices. 
The disks may be configured to run with any or all of the disk 
systems. The logical order of the disks can be set to any order. 

Disk systems: 

HDCA 10, 20 and 26 megabyte hard disks. 

HDDMA 5, 10, 16, megabyte hard disk systems. 

DJDMA floppy disk controller with 8 and 5 1/4 inch disks. 

DJ 2D/B floppy disk controller with 8 inch disks. 

Console I/O: 

Disk Jockey 2D/B serial. 
Disk Jockey DMA serial. 
Multi I/O serial. 
Decision I serial. 

Printer I/O: 

Multi I/O serial with handshaking. 

Multi I/O Diablo 1620 simulator for the Hytype II. 

Note: Floppy systems diskette (drive A:) has to have 1024 byte 
sectors in order for the cold and warm boot loaders to 
work. Be sure to format all new system diskettes with 
1024 byte sectors. The system diskette can be either 
single or double sided. The sector size on normal (non 
A: drive) diskettes is not restricted. Thus if you have 
a diskette with software that is supposed to run on the 
A: drive then you should mount the diskette in the B: 
drive and then PIP it over to a 1024 byte sector 
system diskette. 



Written by Les Kent and Marc Kupper 
Date Programmer Description 
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Public release of revision E.31 

Changed HDC3 equate to HDCA 

Changed blank 10 routines from RET to JMP $ 

Converted BIOSLN to a byte value 

Reduced bad map size to 1 for non MW systems 

Deleted baud rate test from Multio drivers 

Added initial IOBYTE to IOCONF 

Added the North Star character I/O system 

Added character redirection code for the IOBYTE 

Changed serial i/o entry names to IOBYTE names 

Fixed SETHIGH for 2 sided DJDMA 8 inch disks 

Deleted the HyType drivers 

Public release of revision E.3 

40H now points to the HDDMA command channel 

MW' s now have 1024 directory entries 

Deleted the Centronics drivers 

Changed login message to look like a label 

Changed the login messages to say M5, M10, ... 

Redefined the dparam table structure 

Added a serial console for the Switchboard 

Added initialization code for serial group 2 

Added sector size byte to the HDCA DPB ' s 

Added sector size parameter to DPBGEN 

Fixed system length checks for 64K systems 
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SETHIGH was botching 2 sided DPB pointers 

Changed TRACKS in HD driver to HDTRAK 

Added code/ system length checker 

mwreset save/ restores the track number 

mwreset now sets *step and *dir for CMI 

Added 'equ'ed handshaking to the serial LST: 

Removed clock switching code from HDCA driver 

Added handshake configuration code 

Added handshake configuration bytes 

Removed 'equ'ed handshaking from LST: 

Added configuration entries for a0 & d0 

Added the autostart command structure 

Redefined the configuration table 

Added DJDMA drive parameter table 

Added clock switching to HDCA code 

Added seek complete clearing in HDCA 

Added buffer disable on home 

Fixed 8250 UART initialization sequence 

Strip parity on conout to clear up glitches 

Fixed the 8 inch dpb256ss DPB's EXM 

Increased the HD capacities slightly 

Deleted all non-supported MW drives 

Deleted call to flush in conout 

Moved printer back to port 3 

Moved conin flush call to conout 

Fixed double sided head settle time 

Optimized MWissue 

Clean up login message for HD a bit 

Fixed MF multi density problems 

Added Olivetti HD561/1 HD561/2 drives 

Added a MW error reporter 

Added nonstandard system mode flag 

Added a buffer error flag 

Added save/restore of 50-52 to MW driver 

Fixed Centronics drivers 

Fixed allocation map sizes 

Fixed MW partitioning 

Fixed HD partitioning (again) 

Fixed illegal MAC labels 

Fixed North Star drive configurations 

Fixed Quantum Q2040 tracks to 512 

Fixed ST412 step constant to 

Added unallocated writing 

Fixed HD partition overlap 

Started testing and debugging of E.3 

Added 1 sector to HD warm boot loader 

Added mod. number to CB10S rev. number 

Clean up login message 'if's 

Fixed MCR Initialization for LST: 

Added Seagate ST412 drive 

Moved serial LST: device to port 2 

Added common group select routines 

Fixed Diablo HyType II initialization 

Fixed LISTST for PROM driver 

Added Tandon TM602 and TM603 drives 

Use 'part number* equates for MW drives 

Dropped hdrev and mwrev equates 

Seagate ST506 head settle is ms . 

Added MiniScribe 1006 and 1012 drives 

Public release of revision E.2 

Pre-release testing and debugging 

Initial coding of revision E 
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**** 



title 'CBIOS Revision E for CP/M Version 2.2 - March 4, 1982* 



revnum equ 53 
cprarev equ 2 2 



;CBIOS revision number 5.x = E 
;CP/M revision number 2.2 



************************************************************************* 



* The following flags set a ' non-standard ' system mode and an 

* assembly time debugger. 
* 

* If this CBIOS is used with the CP/M 2.2 system that is shipped on 

* a Morrow Designs diskette then NOSTAND can be set to 1. This 

* will allow the CBIOS to use various data areas found inside of 

* the CP/M 2.2 BDOS. If the CBIOS is used with a different 

* operating system then NOSTAND should be set to 0. 
* 

* The DEBUG flag merely causes various internal values and 

* addresses to be printed during the assembly process. This 

* printing is forced via assembly errors and thus should not 

* affect the resulting code in any way. 



nostand equ 1 
debug equ 



;Set to 1 for non-standard mode 
;Set to 1 for debugging mode 



************************************************************************* 

* * 

* The following is set to the memory size of the CP/M the CBIOS is * 

* being created for. * 

* * 
************************************************************************* 



msize equ 
biosln equ 



i 



16h 



; Memory size of target CP/M 
;BIOS length. Also in ABOOT&.ASM 



************************************************************************* 

* * 

* The following equates set up the disk systems to be included * 

* along with the types of drives and the logical order of the * 

* drives. * 

* * 
************************************************************************* 



maxhd 


equ 


1 


maxmw 


equ 





maxfd 


equ 





maxdm 


equ 


2 1 


maxmf 


equ 


2 


hdorder 


equ 


1, 


mworder 


equ 





fdorder 


equ 





dmorder 


equ 


2 


mforder 


equ 


3 


ml0f 


equ 





m20 


equ 


1 


m26 


equ 





ml 0m 


equ 





mwquiet 


equ 





st506 


equ 





st412 


equ 





cm5619 


equ 






;Set to number of HDCA hard disk drives 

;Set to number of HDDMA hard disks 

;Set to number of 2D/B floppies 

;Set to number of DJ DMA floppies 8 inch 

;Set to number of DJ DMA floppies 5 1/4 inch 

;Set the order of logical drives ELSE if 
; not included. 



;HDCA controller disk drives. Set only one 

;Fujitsu M2301B 

; Fujitsu M2302B 

;Shugart SA4000 

;Memorex 

; HDDMA controller disk drives. Set only one 
;Set for no names printed on login 
; Seagate ST-506 
; Seagate ST-412 
;CMI CM-5619 



I KIPm 



-^ 



wmdrive equ 



if 
badsiz equ 

else 
badsiz equ 

endif 







maxmw ne 
32 



; Device to warm boot from. This is the 
; CP/M logical drive number. 

;Only HDDMA drives use the bad map 
; Number of badmap entries 

;Leave one entry as filler 



* Since most hard disk drives hold more than 8 megabytes we 

* partition the drive. We partition our drives using two different 

* formulas. 

* One is the so called 'standard partitioning' where we try to 

* create as many 8 megabyte partitions as possible plus a small 

* partition to take up the slack on the end of the drive. 
* 

* Another way the drives are partitioned is the so called 'even 

* partition' formula. This means that the drive is split into 

* equale sized partitions with the only restriction being that no 

* partition be over 8 megabytes in length. 
* 

* All hard disk drives shipped from Morrow Designs are partitioned 

* using the standard partition formula. If the user wishes to 

* implement even partitioning then he/she must set HDPART or MWPART 

* to the number of partitions desired. 
* 



************************************************************************* 



hdpart equ 
mwpart equ 







;Set to number of non standard partitions 
;Set to number of non standard partitions 



* Define the console driver to be used. 



************************************************************************* 

* * 

* The following equates define the console and printer environments. * 

* * 

************************************************************************* 

************************************************************************* 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 
************************************************************************* 



* CONTYP is: 
* 

* 

* 

* 

* 

* 

* 




1 

3 
4 
5 
6 



Nothing, used for patching to PROM's. 

Provide for 128 bytes of patch space. 

Multi I/O or Decision I driver. 

2D/B driver. 

DJDMA serial port 

Switchboard serial port 

North Star motherboard (2 serial + 1 parallel) 



* Set CBAUD to the divisor latch value for the console. For an 

* explanation of the values look at the DEFCON table. 



contyp equ 2 
cbaud equ 12 



b ^4\ 



************************************************************************* 

* * 

* Define the printer driver to be used. * 

* * 

* LSTTYP is: Nothing, used for patching to PROM's. * 



"'J 



"f\A/V^ 






Z2W '/ / 



1 

2 



4 
5 



Provide for 128 bytes of patch space. 
Multio serial, no protocol. 
Multio serial, Clear T o Send protocol. 
Multio serial. Data Set Ready protocol 
Multio serial, Xon/Xoff protocol. 



* 
* 
* 
* 
* 
* 

* Note: The Decision board is functionally identical to the Multi 

* I/O board for serial printer I/O. Selections 2 to 5 will 

* work on the Wunderbuss i/o board. To use drivers 6 or 7 

* the MULTR3 equate will have to be set. 
* 

* Set pbaud to the divisor latch value for the printer. For an 

* explanation of the values see the deflst table. 



* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 



************************************************************************* 



lsttyp equ 3 
lbaud equ 96 

************************************************************************* 

* * 

* The next equate determines if you have a Multi I/O Rev 3 or a * 

* Decision I mother board for parallel i/o. If are not using * 

* either of these boards then you need not worry about this equate. * 

* If you are using a Multi I/O rev. other than 3.x or 4.x then you * 

* should set MULTR3 to . * 



* * 

************************************************************************* 



multr3 equ 
congrp equ 1 
lstgrp equ 3 



;0 = Decision, 1 = Multi I/O rev. 3 or 4 
;Cosole port (1 - pi, 2 = p2, 3 = p3 ) 
; Printer port (1 = pi, 2 = p2, 3 = p3 ) 



************************************************************************* 

* * 

* The following equates are internal to the CBIOS. * 

* * 

************************************************************************* 



ml0 



equ 



ml0f or ml 0m 





if 


hdpart ne 


hdlog 


equ 
else 


hdpart 


hdlog 


equ 
endif 


ml0*2+m20*3+m26*3 




if 


mwpart ne 


mwlog 


equ 
else 


mwpart 


mwlog 


set 
endif 


st506+st412*2++cm5619*2 


hdca 


equ 


m26 or m20 or ml0 


fujitsu 


equ 


m20 or ml0f 


hdspt 


equ 


32*m26+21*m20+21*ml0 


hdma 


set 


st506 or st412 or cm5619 


mwspt 


equ 


9 



;Use non standard partitions 

; Logical disks per drive for HDCA 

;Use non standard partitions 



max log equ 



;HDCA controller 

;Sectors per track 

;IID DMA controller 
; Sectors per track 

(maxhd*hdlog)+(maxmw*mwlog)+maxfd+maxdm+maxmf 



************************************************************************* 
* * 



* CP/M system equates. * 

* * 
************************************************************************* 



ccpln 


equ 


bdosln 


equ 


size 


equ 


ccp 


equ 


bdos 


equ 


bios 


equ 



of f setc 


equ 


2100h-bios 




if 


debug 


dbg trap 


set 


of f setc 


dbgtmp 


set 


ccp 


dbgtmp 


set 


bdos 


dbgtmp 


set 
end if 


bios 


cdisk 


equ 


4 


buff 


equ 


80h 


tpa 


equ 


100h 


iobyte 


equ 


3 


wbot 


equ 





entry 


equ 


5 




if 


no stand ne 


cblock 


equ 


bios-19h 



80 0h 
0e00h 

(msize*1024) 

size-(biosln*100h+ccpln+bdosln) 

ccp+ccpln 

ccp+ccpln+bdosln 



;Offset for sysgen 



;DDT offset 
;CCP address 
;BDOS address 
;CBIOS address 



i <debug> 

1 < debug > 

1 < debug > 

i <debug> 



endif 



;Address of last logged disk 

; Default buffer address 

; Transient memory 

; IOBYTE location 

;Warm boot jump address 

;BDOS entry jump address 



.•Current actual block# * blkmsk 
;Used for unallocated writting 



************************************************************************* 

* * 

* The following are internal Cbios equates. Most are misc. constants. * 

* * 

******************************************************************** 



;Max retries on disk i/o before error 
; Clear screen on an ADM 3 

Null 

ETX character 

ACK character 

Bell 

Back Space 

Horizontal tab 

Line feed 

Vertical tab 

Form Feed 

Carriage return 

Xon character 

Xoff character 

Escape character 

RS character 

US character 

Space 

Delete 

************************************************************************* 

* * 

* The following are the macros used in generating the DPH, DPB and * 

* allocation tables. * 

* * 
************************************************************************* 



retries 


equ 


10 


clear 


equ 


'Z'-64 


anul 


equ 





aetx 


equ 


'C-64 


aack 


equ 


'F'-64 


abel 


equ 


'G*-64 


abs 


equ 


'H'-64 


aht 


equ 


'I '-64 


alf 


equ 


*J'-64 


avt 


equ 


'K'-64 


aff 


equ 


'L'-64 


acr 


equ 


'M'-64 


xon 


equ 


'Q'-64 


xoff 


equ 


*S'-64 


aesc 


equ 


lbh 


ars 


equ 


leh 


aus 


equ 


lfh 


asp 


equ 




adel 


equ 


7fh 



dpbgen macro 


nam, log,dspt,dbsh,dblm,dexm,ddsm r ddrm,dal0,dall , dcks,dof f , ssiz 


dpb&nam&log 


equ $ 


dw 


dspt 


db 


dbsh 


db 


dblm 


db 


dexm 


dw 


ddsm 


dw 


ddrm 


db 


dal0 


db 


dall 


dw 


dcks 


dw 


doff 


db 


ssiz 


endm 




dphgen macro 


nam, log,dpbl,dpb2 


dph&nam&log 


equ $ 


dw 





dw 


0,0,0 


dw 


dirbuf 


dw 


&dpbl&dpb2 


dw 


csv&nam&log 


dw 


alv&nam&log 


endm 





alloc macro 
csv&nam&log : 
alv&nam&log : 
endm 



nam, log, al, cs 
ds cs 
ds al 



************************************************************** 

* * 

* The following marco is used in generating the logical order of the * 

* CP/M drives. " * 

* * 

************************************************************************* 



order 



macro 


num 




if 


num eq 


hdorder 


dw 


hddst 




endif 






if 


num eq 


mworder 


dw 


mwdst 




endif 






if 


num eq 


fdorder 


dw 


fddst 




endif 






if 


num eq 


dmorder 


dw 


dmdst 




endif 






if 


num eq 


mforder 


dw 


mfdst 




endif 






endm 







************************************************************************* 

* * 

* The folloing are offset numbers of Device Specification Tables. * 

* * 

************************************************************************* 



d$wboot 


equ 





d$stran 


equ 


1 


d$sell 


equ 


2 


d$sel2 


equ 


3 


d$home 


equ 


4 


d$strk 


equ 


5 


d$ssec 


equ 


6 


d$ sdma 


equ 


7 


d$read 


equ 


8 


d$write 


equ 


9 


d$bad 


equ 


10 



rWarm boot 
Sector translation 
•Drive select, Return DPH 
•Drive select 
•Home drive 
( Set track 
rSet sector 
:Set DMA address 
rRead a physical sector 
r Write a physical sector 
: Return pointer to bad sector info 



************************************************************************* 

* * 

* The jump table below must remain in the same order, the routines * 

* may be changed, but the function executed must be the same. * 

* * 

************************************************************************* 



org 



bios 



;Cbios starting address 





jmp 


cboot 






wboote : 


jmp 


wboot 








if 


contyp 


ne 





const: 


jmp 


conist 






cin: 


jmp 


conin 






cout: 


jmp 
else 


costrp 






const: 


jmp 


$ 






cin: 


jmp 


$ 






cout: 


jmp 
endif 


$ 








if 


(lsttyp ne 


pout: 


jmp 
else 


lstout 






pout: 


jmp 
endif 


cout 








if 


contyp 


eq 


6 




jmp 


punout 








else 










jmp 


cout 








endif 










if 


contyp 


eq 


6 




jmp 


rdrin 








else 










jmp 


cin 








endif 










jmp 


home 








jmp 


setdrv 








jmp 


settrk 








jmp 


setsec 








jmp 


setdma 








jmp 


read 








jmp 


write 








if 


lsttyp 


ne 







jmp 


Istost 








else 










jmp 


donop 








endif 









;Cold boot entry point 
;Warm boot entry point 



;Console status routine 

; Console input 

;Console output 

; Console status routine PROM pointer 

; Console input PROM pointer 

; Console output PROM pointer 



;List device output 
;List device output 



;North Star drivers have punch entry points 
; Punch device output 

;Use console I/O 



;North Star drivers have reader entry points 
; Reader device input 

;Use console I/O 



;Home drive 
;Select disk 
;Set track 
;Set sector 
;Set DMA address 
;Read the disk 
;Write the disk 



;List device status 
;List device status 



jmp sectran ; Sector translation 

The following jumps are extended BIOS calls defined by Morrow Designs 

if maxfd ne 

jmp fdsel ; Hookup for SINGLE.COM program 

else 

jmp do nop 

endif 

jmp ;End of the jump table 

************************************************************** 

* * 

* Drive configuration table. * 

* * 

************************************************************************* 

drconf: db ; Revision structure 

db 32 ;32 bytes long now 

************************************************************************* 

* * 

* The following is the table of pointers to the Device * 

* Specification Tables. The order of this table defines the * 

* logical order of the CP/M drives. * 

* * 

************************************************************************* 

dsttab: equ ? 

dn set 1 

rept 16 

order %dn 

dn set dn+1 

endm 

************************************************************************* 



* 



* 



* I/O configuration table. * 
* 

* At this CBIOS revision 11 bytes are defined for this table. 

* Several extensive changes are planned for the table. Future 

* revision of the IOCONF table will have independant entries for 

* three serial ports and will be used by several character drivers. 

* Also the IOBYTE will be implemented for all the character 

* drivers. I might even write an external program to edit this 

* table. " * 
* 

* The first two bytes show the I/O configuration that the CBIOS was 

* assembled with. These bytes are used by external software to 

* determine the configuration options that are available. 



* 
* 
* 
* 
* 
* 

* to location 3 on cold boots. See the CP/M 2 alternation guide * 

* for a description of the IOBYTE. * 



* ... 

* The next byte is the initial IOBYTE value. This value is written 



* 



* The next byte is to make sure that the group select byte on the * 

* Mult I/O or Decsion I stays consistant throughout the Cbios. * 

* Only the group bits themselves (bits and 1) should be changed * 

* as you output to the group port. If you modify one of the other * 

* bits (such as driver-enable) then you should modify the same bit * 

* in this byte. For example: * 

* * 



;Select console group 
;Get group byte 
; Select the console port 
; Select the group 

;Modify a bit in the group byte 

yGet group byte 

;Set the bank bit 

;Save new group setting 

; Select second serial port 

; Select the desired group 
* 

* Note: You should not set the group bits themselves in the 

* group byte . 
* 



* 






* 


Ida 


group 


* 


orx 


congrp 


* 


out 


grpsel 


* 






* 






* 


Ida 


group 


* 


on 


bank 


* 


sta 


group 


* 


orx 


group2 


* 


out 


grpsel 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



The following two words define the default baud rates for the 
console and the list devices. These words are provided so that 
the user can easily modify them and that they will also be used 
in the future by Morrow Designs software. 

The following is a list of possible baud rates and the decimal 
value needed for the defcon or deflst words. 



Baud 



rate 


defcon/ deflst 


50 


2304 


75 


1536 


110 


1047 


134.5 


857 


150 


768 


300 


384 


600 


192 


1200 


96 


1800 


64 



Baud 



rate 

2000 

2400 

3600 

4800 

7200 

9600 

19200 

38400 

56000 



defcon/def 1st 

58 

48 

32 

24 

16 

12 

6 

3 

2 



The next two bytes are ued to configure the hardware handshaking 
protocall used by the serial list drivers with the Multio or 
Wunderbuss I/O boards. The first of these two bytes is a mask. 
This mask is ANDed with the 8250' s MODEM Status Register to strip 
out the desired handshake lines. Next the result of the ANDing 
is XORed with the second of the two bytes. This XORing allows 
the handshake lines to be inverted. Common byte values are 
shown below. 



cts 



equ 

db 
db 

db 
db 

db 
db 



10h 

cts 



cts 
cts 



0ffh 



;Clear To Send status mask 
;Morrow Designs 'Clear To Send' 

; Inverted Clear To Send 

;No handshaking 



The last byte in the revision one structure is the last character 
that was recieved from the printer. This byte is used to 
implement Xon/Xoff software handshaking. This handshaking 
protocol should not bother printers that have not implemented 
Xon/Xoff protocol so this driver is enabled all the time. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



ioconf: db 



;Revision 2 structure 





db 




11 




db 
db 




contyp 
Isttyp 


iobyt 


equ 
db 




$ 
00$00$00$001 


group: 
defcon: 


db 

dw 





cbaud 


def 1st : 


dw 




lbaud 


1 stand: 


if 
db 




(Isttyp ne 




lstxor : 


db 




0ffh 




endi 


.f 




1 stand: 


if 
db 




Isttyp eq 3 
cts 


lstxor: 


db 









endi 


.f 




1 stand: 


if 
db 




Isttyp eq 4 
dsr 


lstxor: 


db 









endi 


.f 




lastch: 


db 




xon 



;11 bytes long now 

;Console device driver number 

;List device drive number 

;The initial IOBYTE is kept here 

;A11 devices go to CON: ^L—- £)(g 



//&Od£oo$OQb 



; Group byte 

; Console baud rate divisor value 

; Printer baud rate divisor value 



(Isttyp ne 3) and (Isttyp ne 4) ;Xon/Xoff protocol 

; Serial list handshake mask 
; Serial list inversion flag 



; Clear To Send protocol 

; Serial list handshake mask 

;Serial list inversion flag 



;Data Set Ready protocol 
; Serial list handshake mask 
; Serial list inversion flag 



;Last character recieved from the printer 
*************************************************************** 



* The following table are drive parameters for drives connected to 

* the DJDMA floppy disk controller. There is one entry for each of 

* the the eight drive that the controller can address. The first 

* four entries are for the 8 inch drives and the last four are for 

* the 5 1/4 inch drives. Users with fast stepping 8 inch drives 

* (SA850/1) or slow 5 1/4 inch drives (SA400) should adjust this 

* table for optimal device performace. 



* Each table entry contains four fixed length fields. 

* are defined as follows: 
* 

* 

* 

* 

* 



The fields 



tracks 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



This byte contains the number of tracks on the 
drive. Most 8 inch drives have 77 tracks and 
most 5 1/4 inch drives have 35 or 40 tracks. 

config This a a flag byte that indicates as to whether 
or not this drive has been configured. Set to 
to force reconfiguration. 

step This word contains the stepping rate constant. 
The DJDMA' s delay routines tick 34.1 times per 
millisecond. Thus the step constant would be the 
drive manufactors recomended stepping delay times 
34.1. Example. Shugart SA 850 's step at 3 
milliseond intervals. The step constant would be 
3 * 43.1 or 102. 

rfu The next two words are reserved for future use. 
They must be zero. 

settle This word is similar to the previously defined 

step word. This specifies the head settle timing 
after the heads have been stepped. Example, 
Shugart' s SA 850 head settle time is 15 
milliseconds. The settle constant would be 15 * 
34.1 or 512. 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* ;Shugart SA 850 

* dconf 77, 3, 15 ;77 tracks, 3 ms step, 15 ms settle 
* 

* ;Shugart SA 400 

* dconf 35, 40, 10 ;35 tracks, 40 ms step, 10 ms settle 

* 



dconf 


macro 


tracks, step, set 


tie 




db 


tracks 






db 









dw 


step*341/l0 






dw 









dw 









dw 


settle*34l/l0 






endm 






dmarap : 


db 


0, 10*8 




dparam: 


equ 


$ 





* An assembler macro (dconf) has been provided to assist in * 

* generating the dparam table. This macros parameters are the * 

* number of tracks, the step rate in milliseconds, and the head * 

* settle time in milliseconds. For example: * 

* * 

* 
* 
* 
* 
* 
* 

* Note: Caution should be used when defining the drive parameters. * 

* Incorrect definations may damage the floppy disk drive. Morrow * 

* Designs takes no responsibility for damage that occures through * 

* the misuse of this macro. * 

* * 

****************************************************************** 
if (maxdm ne 0) or (maxmf ne 0) ;DJDMA present? 

; Number of tracks 

; Reset the calibrated flag 

;Step time 

; Reserved for future use, must be zero 

; Reserved for future use, must be zero 

;Head settle time 

.•Revision 0, length 80 bytes 

; Drive parameter table 

************************************************************************* 

* * 

* Define 8 inch drive parameters * 

* Use SA800 parameters: 77 tracks, 8 ms step, 8 ms settle * 

* * 

************************************************************************* 

dconf 77, 8, 8 ; Drive 

dconf 77, 8, 8 ;Drive 1 

dconf 77, 8, 8 ;Drive 2 

dconf 77, 8, 8 ; Drive 3 

************************************************************************* 

* * 

* Define 5 1/4 inch drive parameters * 

* Use Tandon parameters: 40 tracks, 5 ms step, 15 ms settle * 

* * 

************************************************************************* 

dconf 40, 5, 15 ; Drive 

dconf 40, 5, 15 ; Drive 1* , . 

dconf 40, 5, 15 ; Drive 2 

dconf 40, 5, 15 ;Drive 3 

end if 

************************************************************************* 

* * 

* Console driver routines- * 

* * 

* Routine used depends on the value of CONTYP. Possible CONTYP * 

* values are listed as follows: * 



* 

Nothing, used for patching to PROM's * 

1 Provide for 128 bytes of patch space * 

2 Multi I/O or Decision I driver * 

3 2D/B driver * 

4 DJDMA serial port * 

5 Switchboard serial port * 

6 North Star motherboard (2 serial + 1 parallel) * 

* 

********************************************************************** 

************************************************************************* 

* * 

* This routine is an experiment to reduce missed and garbled * 

* characters on console output. * 

* * 

************************************************************************ 



* CONTYP is: 
* 

* 

* 

* 

* 

* 

* 



if 



contyp ne 



costrp: 


mov 


a,c 




am 


7fh 




mov 


c,a 




3mp 


conout 



; Strip parity on conout 



endif 



***************************************************************** 

* * 

* The folowing equates will define the Decision I mother * 

* board I/O or the Multi I/O environments if needed. * 

* * 

***************************************************************** 



multio equ 



(contyp eq 2) or (lsttyp ge 2) ;Multi I/O board used? 

;Define Multi I/O environment 

;Base address of Multi I/O or Decision I 

; Group select port 

;Divisor (lsb) 

;Divisor (msb) 

;Interupt enable register 

;WB14 printer select port 

;Line control register 

;Line status register 

;Read data buffer 
;Tranmitter data buffer 
; Divisor latch access bit 
; Status line THRE bit 
; Clear to send 
;Data set ready 
;Line status DR bit 
: yWord length select bit ■ * 
;Word length select bit 1 for 8 bit word 
;Stop bit count - 2 stop bits 

; Define multi I/O ports addresses for group zero 





if 


multio 


mbase 


equ 


48h 


grpsel 


equ 


mbase+7 


dll 


equ 


mbase 


dim 


equ 


mbase+1 


ier 


equ 


mbase+1 


elk 


equ 


mbase+2 


Icr 


equ 


mbase+3 


mcr 


equ 


mbase+4 


lsr 


equ 


mbase+5 


msr 


equ 


mbase+6 


rbr 


equ 


mbase 


thr 


equ 


mbase 


dlab 


equ 


80h 


thre 


equ 


20h 


cts 


equ 


10h 


dsr 


equ 


20h 


dr 


equ 


1 


wls0 


equ 


• 1 


wlsl 


equ 


2 


stb 


equ 


4 



gzero equ 
daisy0 equ 
daisyl equ 
sensesw equ 

if 





mbase 
mbase+1 
mbase+1 

multr3 eq 



; Daisy input ports 

; Sense switches 

; Daisy output ports are different 



daisi0 


equ 


mbase 


daisil 


equ 
else 


mbase+1 


daisi0 


equ 


mbase+1 


daisil 


equ 
end if 


mbase 



for Decision I and Multi I/O. 
; These two are the Decision I ports 

; and these are the Multi l/0's. 



Define daisy status input bits 

;End of ribbon 

; Paper out 

; Cover open 

; Paper feed ready 

; Carriage ready 

; Print wheel ready 

; Printer check (error) 

; Printer ready 

Define daisy status input bits for Diablo HyType II driver 



ribbon 


equ 


01h 


paper 


equ 


02h 


cover 


equ 


04h 


pfrdy 


equ 


08h 


crrdy 


equ 


10h 


pwrdy 


equ 


20h 


check 


equ 


40h 


ready 


equ 


80h 



crstrd 
pfstrd 
pwstrd 



equ 
equ 
equ 



1020h 

810h 

2040h 



;Carriage ready 
; Paper feed ready 
; Print wheel ready 



Define daisy output bits 



d9 
dl0 
dll 
dl2 

pfstb 
crstb 
pwstb 
rest 



equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 



01h 
02h 
04h 
08h 

10h 
20h 
40h 

80h 



;Data bit 9 

;Data bit 10 

;Data bit 11 

;Data bit 12 

; Paper feed strobe 

; Carriage strobe 

; Print wheel strobe 

; Printer restore (Ribbon lift on Multi I/O) 



Define clock select bits 



rlift equ 40h 
pselect equ 80h 



; Ribbon lift 

.•Select (Not used by Diablo) 



; Define Modem Control Register bits 



dtrenb equ 1 
rtsenb equ 2 

; Define group select bits 



S0 


equ 


01h 


si 


equ 


02h 


smask 


equ 


03h 


bank 


equ 


04h 


enint 


equ 


08h 


restor 


equ 


10h 


d enable 


equ 


20h 



;DTR enable 
;RTS enable 



; Group number (0-3) 



; Printer restore on Multi I/O 
; Driver enable on Multi* I/O 



; Define special constants for the HyTyp II driver 



cperx 


equ 


10 


lperi 


equ 


6 


hinc 


equ 


120 


vine 


equ 


48 


numtabs 


equ 


160 


maxchrs 


equ 


1024 


maxrgt 


equ 


1584 


dfrmln 


equ 


110 



; Default to 10 characters per inch 

; Default lines per inch 

; Horizontal increments per inch 

; Vertical increments per inch 

; Number of horizontal tabs 

.•Maximum number of printer characters to queue 

.•Maximum carriage position 

; Forms length times 10 



autolf equ ; Default to noIAuto line feed 

endif 

********************************************************* 

* * 

* CONTYP: 2 Multi I/O or Decision I console driver * 

* * 

***************************************************************** 



if contyp eq 2 



************************************************************************* 

* * 

* This driver on cold boot will inspect bits 1-3 of the sense * 

* switches. If the value found is in the range 0-6 then the * 

* console baud rate will be taken from the rate table. Otherwise * 

* the baud rate will be set from the DEFCON word which is found * 

* just below the regular Cbios jump table. The standard divisor * 

* table is given below. * 

* * 

* Sense switch: 123 (0 = off, 1 = on) * 

* 000 = 110 * 

* 001 = 300 * 

* 010 = 1200 * 

* 011 = 2400 * 

* 100 = 4800 * 

* 101 = 9600 * 

* 110 = 19200 * 

* defcon = 9600 * 

* * 

* Note: If you are using a Multio then the switches will not be * 

* available so the baud rate will be taken from DEFCON. * 

* * 

************************************************************************* 

************************************************************************* 

* * 

* Due to its length, the TTYSET routine driver is below the CBOOT * 

* CBOOT routine. * 

* * 

************************************************************************* 

***************************************************************** 

* * 

* Read a character from the serial port. * 

* * 

***************************************************************** 

conin: call selcon ;Select console 

;Read status register 
;Wait till character ready 

;Read character 
; Strip parity 

***************************************************************** 

* * 

* Output a character to serial port. * 

* * 

***************************************************************** 
conout: call selcon ;Select console 



coninl : 


in 


lsr 




anx 


dr 




Dz 


coninl 




in 


rbr 




ani 


7fh 




ret 





conoutl :in 


lsr 


ani 


thre 


jz 


conoutl 


mov 


a, c 


out 


thr 


ret 





; Read status 

;Wait till transmitter buffer empty 

; Character is in (c) 

; Output to transmitter buffer 



***************************************************************** 

* * 

* Return serial port status. Returns zero if character is not * 

* ready to be read. Else returns 255 if ready. * 

* * 

***************************************************************** 



call 


selcon 


in 


lsr 


ani 


dr 


rz 




mvi 


a,0ffh 


ret 





endif 



;Select console 

;Read status register 

;No charactter ready 
; Character ready 

;Multi I/O or Decision I 



***************************************************************** 

* * 

* CONTYP: 3 2DB console driver * 

* * 

***************************************************************** 



if 

conout : jmp 

conin: jmp 

conist: call 
mvi 
rz 
inr 

ret 

endif 



contyp eq 3 

fdcout 

fdcin 

fdtstat 
a,0ffh 



; Console output 
; Console input 
; Console status 



;2DB 



***************************************************************** 

* * 

* CONTYP: 4 DJDMA console driver * 

* * 

***************************************************************** 





if 


contyp eq 4 


conout : 


lxi 


h,dmchan 




mvi 


m, serout 




xnx 


h 




mov 


• m,c 




jmp 


docmd 


conin: 


lxi 


h, serin+1 




xra 


a 


ci2: 


cmp 


m 




3z 


ci2 




mov 


m,a 




dcx 


h 




mvi 


a,7fh 




ana 


m 




ret 





; Command for serial output 

.•Serial input status 

;Wait till 40h deposited at 3fH 

;Clear status 

; Point to input data 

;For masking out parity 



conist: 


Ida 




serin+1 




ora 




a 




rz 








mvi 




a,0ffh 




ret 








endi 


f 





;Pick up serial input status 

;If zero then no character ready 
;Set character ready 



************************************************************************* 

* * 

* CONTYP: 5 Switchboard as serial console * 

* * 

******************************************************************* 





if 


contyp eq 5 


swbase 


equ 





conist: 


in 


swbase+2 




ani 


4 




rz 






mvi 


a,0ffh 


ttyset: 


ret 




conin: 


in 


swbase+2 




ani 


4 




jz 


conin 




in 


swbase 




ani 


7fh 




ret 




conout: 


in 


swbase+2 




ani 


8 




jz 


conout 




mov 


a, c 




out 


swbase 




ret 





;Base of the SWITCHBOARD 

;Get the first ports status 
;Mask the data ready bits 
; Return console not ready 

;NULL terminal initialization 

;Get switchboard status 
;Test for data ready 

;Get a character 
; Strip off parity 



; Check status 

;Wait till output buffer empty 

; Write a character 



endif 

************************************************************************* 

* * 

* Multio/Wunderbuss group select routines * 

* * 

************************************************************************* 



selg0: Ida 
out 
ret 



if (contyp eq 2) or (lsttyp ge 2) ;Need group select routines? 

; Select group zero 



group 
grpsel 



selcon: Ida 
ori 
out 
ret 

selrdr: Ida 
ori 
out 
ret 

sellst: Ida 
ori 
out 
ret 



group 

congrp 

grpsel 



group 

5-lstgrp 

grpsel 



group 

lstgrp 

grpsel 



; Select console group 



; Select reader/punch group 
;Use 'other' serial port 



; Select printer group 



endif 

***************************************************************** 

* * 

* The following byte determines if an initial command is to be * 

* given to CP/M on warm or cold boots. The value of the byte is * 

* used to give the command to CP/M: * 

* ' * 

* = never give command. * 

* 1 = give command on cold boots only. * 

* 2 = give the command on warm boots only. * 

* 3 = give the command on warm and cold boots . * 

* * 

***************************************************************** 



autost: db 
db 



; Revision structure 

100h - (low $) ;The rest of the page is used for this stuff 



autoflg:db 

coldmes:dw 
warmes : dw 





co Idem 
warmem 



;Auto command feature enable flag 

; Pointer to the cold start command 
; Pointer to the warm start command 



***************************************************************** 

* * 

* If there is a command inserted here, it will be passed to the * 

* CCP if the auto feature is enabled. For Example: * 

* 

* 

* 
* 

* 

* will execute Microsoft BASIC, and MBASIC will execute the * 

* "MYPROG" BASIC program. Note: The command line must be in * 

* upper case for most commands. * 

* * 

***************************************************************** 



* 






* 
* 
* 
* 


co Idem: db 
db 
coldend equ 


coldend-coldcm 
"MBASIC MYPROG' 



eoldem: db 
db 
coldend equ 

warmem: db 
db 
warmend equ 



coldend-coldcm 
■ ■ 



wa rmend-warmem 



; Length of cold boot command 
;Cold boot command goes here 



;Length of warm boot command 
;Warm boot command goes here 



************************************************************************* 
* * 

* 
* 
* 
* 
* 
. * 
* 
* 
* 
* 
* 



At the first page boundry following the CBIOS we have a series of 
pointers that point to various internal tables . At the start of 
each of these tables we have a revision byte and a length byte. 
The revision byte is the current revision number for that 
particular structure and the length byte is the length of that 
structure. This length does not include the revision* byte nor 
the length byte itself. 



Revision 
E.0 
E.3 
E.3 



Description 

1 and 2 defined 

This table is moved to a page boundry 

0, 3 and 4 defined 



The pointers defined so far are as follows: 

0) High byte is the page number of the CBIOS. Low byte is 
the CBIOS revision number. Used to determine pointer 



* 
* 
* 
* 
* 



* structure . * 



* 
* 
* 



1) This points to the drive configuration table. 



* 
* 
* 



* 2) This points to the I/O configuration bytes for the serial * 

* drivers. Eg, the console, printer, reader, and punch * 

* devices. * 



* 



* 3) This points to the drive parameter table for DJDMA floppy 

* disk drives. If no DJDMA is present then this pointer is 

* null (0). 

* 

* 4) This points to the autostart command structures. Used to 

* automatically invoke a command on cold or warm boot 
* 

* 5) This will be a null (0) pointer. It marks the end of the 

* table. * 



* 
* 
* 
* 
* 
* 
* 
* 
* 



* 



* 



************************************************************************* 

if $ gt bios+256 ;Test for code overlap 

'Fatal error, pointer table placement.' 

else 

ds bios+2 56-$ ; Start at a page boundry 

endif 

CBIOS page number 

Cbios revision number 

Drive configuration table pointer 

I/O configuration table pointer 

(maxmf ne 0) ; DJDMA present? 

;Drive parameter table pointer 



;Auto command structure pointer 
;End of table marker 

************************************************************************* 



db 


high ($-1) 


db 


revnum 


dw 


drconf 


dw 


ioconf 


if 


(maxdm ne ) or 


dw 


dmarap 


else 




dw 





endif 




dw 


autost 


dw 






* 
* 
* 
* 
* 
* 



* The following code performs the mapping of logical to physical 

* serial I/O devices. The physical entry points are CONIN, CONOUT, 

* CONIST, RDRIN, PUNOUT, LSTOUT, and LSTOST. These entry points 

* are mapped via the Intel standard I/O byte (IOBYTE) at location 3 

* in the base page to the low level device drivers. 
* 

* Note: A naming convention has been chosen to reduce label * 

* colisions. The first three characters of a name indicate the * 

* device drivers name, the following three characters indicated the 

* function performed by that particular device routine. The device * 

* names are defined and described in the "An Introduction to CP/M * 

* Features and Facilities" manual in the section on the STAT * 

* command and in the "CP/M Interface Guide" in the IOBYTE section. 

* The device function postfixes are as follows. * 

* ,„..... * 

* devSET Initial device setup and initialzation * 

* devIN Read one character from the device * 

* devOUT Write one character to the device * 

* devIST Return the device character input ready status 

* devOST Return the device character output ready status 



* 



* 



* 



* The setup routine initializes the device and returns. The input 

* routine returns one character in the A register (parity reset) . 

* The output routine write one character from the C register. The 

* input status routine returns in the A register a if the device * 
does not have a character readv for inout for 0ffh if a character * 



* 



* is ready for input. The output status routine returns in the A 

* register a if the device is not ready accept a character and a 
* 



0ffh if the device is ready. The input and output routines 
should wait untill the device is ready for the desired operation 
before the doing the operation and returning. 



* Wot all of these functions need to be implemented for all the 

* devices. The following is a table of the entry points needed for 
* 

* 



each device handler. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
************************************************************************* 



device setup 


input 


output 


input 


output 


name 






status 


status 


CON: 




CONIN 


CONOUT 


CONIST 




RDR: 




RDRIN 




RDRIST 




PUN: 






PUNOUT 






LST: 






LSTOUT 




LSTOST 


TTY: 


TTYSET 


TTYIN 


TTYOUT 


TTYIST 


TTYOST 


CRT: 


CRTSET 


CRTIN 


CRTOUT 


CRTIST 


CRTOST 


UC1: 


UC1SET 


UC1IN 


UCIOUT 


UC1IST 




PTR: 


PTRSET 


PTRIN 




PTRIST 




UR1: 


UR1SET 


UR1IN 




UR1IST 




UR2: 


UR2SET 


UR2IN 




UR2IST 




PTP: 


PTPSET 




PTPOUT 






UP1: 


UP 1 SET 




UP10UT 






UP2: 


UP2SET 




UP20UT 






LPT: 


LPTSET 




LPTOUT 




LPTOST 


UL1: 


UL1SET 




UL10UT 




UL10ST 



The CONIN, CONOUT, CONIST, RDRIN, RDRIST, PUNOUT, LSTOUT, and 
LSTOST routines are the logical device driver entry points 
provided by this device mapper. The other entry names must be 
provided by the physical device drivers . 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 

* 
* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



if 



contyp eq 6 



; I/O byte implemented for North Star 
; drivers. Other drivers to follow 



conin: 


mvi 


e,l 




call 


redir 




dw 


ttyin 




dw 


crtin 




dw 


rdrin 




dw 


uclin 


conout: 


mvi 


e,l 




call 


redir 




dw 


ttyout 




dw 


crtout 




dw 


Is tout 




dw 


uclout 


conist: 


mvi 


e,l 




call 


redir 




dw 


ttyist 




dw 


crtist 




dw 


rdrist 




dw 


uclist 


rdrin: 


mvi 


e,7 




call 


redir 



; Console input 




IOBYTE : 


76543210 


;CON: = TTY: 


XXXXXX00 


;CON: - CRT: 


XXXXXX01 


;CON: = BAT: 


XXXXXX10 


;CON: = UC1: 


xxxxxxll 



Console output 

IOBYTE: 76543210 
XXXXXX00 
XXXXXX01 
' XXXXXX10 

xxxxxxll 

Console input status 

IOBYTE: 76543210 



CON: 


. = 


TTY 


CON: 


= 


CRT 


CON 


. = 


BAT 


CON 


: = 


UC1 



CON. 


= TTY: 


XXXXXX00 


CON 


. = CRT 


: xxxxxx01 


CON 


. = BAT 


: xxxxxxl0 


CON 


: = UCIj 


xxxxxxll 



; Reader input 

IOBYTE: 76543210 



dw 
dw 
dw 
dw 



rdrist 




lstost: 



mvi 

call 

dw 

dw 

dw 

dw 



redir: Ida 

redir0: rlc 

dcr 

jnz 



redirl 



am 
mov 
mvi 
pop 
dad 
mov 
inx 
mov 
mov 
pchl 

end if 



ttyxn 
ptrin 
urlin 
ur2in 

e,7 

redir 

ttyist 

ptrist 

urlist 

ur2ist 

e,5 

redir 

ttyout 

ptpout 

uplout 

up2out 

e, 3 

redir 

ttyout Quotf 

crtout ok»uT blvltf 

lptout - _1)| 6tr\-~ sZGfeur 

ullout blOOT 



e, 3 

redir 

ttyost 

crtost 

lptost 

ullost 

iobyte 

e 

redir0 

110b 
e, a 

d,0 

h 

d 

a,m 

h 

h,m 

l,a 



OC (OS T" 



tfjttfii 



Hnr-^ r 







;RDR 
;RDR 
;RDR 
;RDR 



= TTY 
= PTR 
= UR1 
= UR2 



XXXX00XX 
XXXX01XX 
XXXXl0XX 

xxxxllxx 






CAM- SBdos r j &cr sr*ng 



Reader input status 



RDR 
RDR 
RDR 
RDR 



IOBYTE i 
= TTY: 
= PTR: 
= UR1: 
= UR2: 



76543210 

XXXX00XX 
XXXX01XX 
XXXX10XX 

xxxxllxx 



fifth 



Punch output 

IOBYTE: 76543210 

XX00XXXX 
XX01XXXX 
XX10XXXX 

xxllxxxx 



PUN: 


= TTY: 


PUN: 


= PTP: 


PUN: 


= UP1: 


PUN: 


= UP2: 



Szqosr 



&^ooT 



4£4 A- 

MO </ A-, C 

Her 



) 7£?r fZ£o r»/4tt. 
• us/hf o«/r/c /SsMf 



AMI- ( 



List output 

IOBYTE : 



LST: 


= 


TTY: 


LST: 


= 


CRT: 


LST: 


= 


LPT: 


LST: 


= 


UL1: 



76543210 

00XXXXXX 
01XXXXXX 






/ 

OKOvT 



A /ifr»e.N u/ into if s&? is ttus/^ 

> wAPf frtC FPU ^ _ 

Ce/a t7~c/*s7) / ' c)K 25 



o j<f 'p/f^St 



10XXXXXX >£— SSx% 



/ 



ic/frfg ftfc-c ~Z 



List output status 

IOBYTE: 76543210 

00XXXXXX 
01XXXXXX 
10XXXXXX 

llxxxxxx 



LST: 


= 


TTY: 


LST: 


= 


CRT: 


LST: 


— 


LPT: 


LST: 


— 


UL1: 









;Get the INTEL standard iobyte 
; Shift the next field in 
;Bump the shift count 



;Mask the redirection field 
;Make the word table offset 

;Get the table base 

; Offset into our table 

;Load the low level i/o routine pointer 



;Execute the low level i/o driver 
; IOBYTE redirector 



n/-& 






<T2 



2> lac/rob 



Mo\/ A,c ■ duty c~r 7h> cCf><*uj 






J, 



************************************************************************* 



* CONTYP: 1 Blank space for console driver 

* ■ .,.... 

* The driver entries CONOUT, CONIN, CONIST are defined in the CP/M 

* alternation guide. Eg. Input parameters are in register C and 

* results are returned in register A. The TTYSET routine is used 

* for initialization code. It should execute a RET when complete. 
* 

* The TTYSET routine could be placed just below the CBOOT routine. 

* This space (below CBOOT) is recyled for use as a disk buffer 

* after CBOOT is done. 
* 



/oof f*£/ 2)/ au rcLs ; ottfpcr 7i« tUttcfir 
/t/fr^ tec////- 

cooa/T 



d.iAffi 



T)cr 

five 

14/ . 



A, if 

po<J//f 



/a/ 



d(o«T<ss 
I 





if 




contyp eq 1 


ttyset 


equ 




$ 


conout 


equ 




$ 


conin 


equ 




$ 


conist 


equ 




$ 




jmp 




$ 




ds 




125 




endi 


f 





;User defined 10 area 

; Console initialization 

; Console output 

; Console input 

; Console input status 



;User 10 

******************************************************************** 
* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 






$?>>/ f*s>*Jj 



* CONYTP: 6 North Star 
* 

* The following code implements the North Star console I/O system. 

* This system is for users who purchase a Morrow Designs disk 

* system to replace their North Star disk system. The Mapping of 

* the logical to physical entry points is performed as follows: 
* 

* Device name Left Right Parallel 

serial serial port 



Console 
Reader 

* Punch 

* List 



* 
* 
* 
* 
* 
* 
* 
* 
* 



CON: 


= 


TTY 


RDR: 


= 


TTY 


PUN: 


= 


TTY 


LST: 


= 


TTY 



CRT 
PTR 
PTP 
CRT 



UC1 
UR1 
UP1 
UL1 



For example, to use a printer connected to the right serial port, 
use the CP/M command: 

STAT LST:=CRT: 

Likewise, the CP/M command "STAT LST:=UL1:" is used if you have a 
printer connected to the parallel port. 



************************************************************************* 



if 

nsldat equ 

nslsta equ 

nsrdat equ 

nsrsta equ 

nsstbe equ 

nssrbr equ 



nslinl equ 
nsrinl equ 



contyp eq 6 

2 
3 



4 
5 

1 
2 



0c eh 
0ceh 



;Use North Star I/O? 

;Left serial port data port 
;Left serial port status port 

; Right serial port data port 
; Right serial port status port 

;Transmitter buffer empty status bit 
;Reciever buffer ready status bit 

;See the 8251 data sheets for more 
; configuration information. 

;Left serial port initialization # 1 

; Right serial port initialization # 1 

,-76543210 Bit definations 

; 11001110 Default configuration 

;xxxxxx00 Synchronous mode 

;xxxxxx01 IX clock rate 

;xxxxxxl0 16X clock rate 

;xxxxxxll 64X clock rate 

;xxxx00xx 5 bit characters 

;xxxx01xx 6 bit characters 

;xxxxl0xx 7 bit characters 

;xxxxllxx 8 bit characters 

;xxx0xxxx Parity disbable 

;xxxlxxxx Parity enable 

;xx0xxxxx Odd parity generation/ check 

;xxlxxxxx Even parity generation/ check 



nslin2 equ 
nsrin2 equ 



nspdat equ 

nspsta equ 

nsprbr equ 

nsptbe equ 



37h 
37h 



nsram 



equ 




6 

1 
2 

0c0h 



;00xxxxxx Invalid 

;01xxxxxx 1 stop bit. 

;10xxxxxx 1.5 stop bits 

;llxxxxxx 2 stop bits 

;Left serial port initialization # 2 

; Right serial port initialization # 2 

; 76543210 Bit definations 

;00110111 Default configuration 

;xxxxxxxl Enable transmitter 

;xxxxxxlx Assert DTR* 

jxxxxxlxx Enable reciever 

;xxxxlxxx Send break character, TxD low 

;xxxlxxxx Reset PE, OE, FE error flags 

;xxlxxxxx Assert RTS* 

;xlxxxxxx Internal reset 

; Ixxxxxxx Enter hunt mode (for sync) 

; Parallel data port 
; Parallel status port 

; Reciever buffer ready status bit 
; Transmitter buffer empty status bit 

; North Star memory parity port, 

; set to for no North Star RAM 



************************************************************************* 
* * 

* 
* 
************************************************************************* 



* Left serial port routines. Use TTY: device. 
* 



ttyin: 



;Read a character 



;Wait till a character is ready 
;Get the character 
; Strip parity 



;V7rite a character 



;Wait till the buffer is empty 
; Write the character 



; Return input buffer status 

.•Return not ready 

; There is a character ready 

;Return output buffer status 

; Return not ready 
; Return ready 

************************************************************************* 

* * 

* Right serial port routines. Use CRT:, PTR:, and PTP: devices. * 





in 


nslsta 




ani 


nssrbr 




jz 


ttyin 




in 


nsldat 




ani 


7fh 




ret 




ttyout : 








in 


nslsta 




ani 


nsstbe 




jz 


ttyout 




mov 


a, c 




out 


nsldat 




ret 




ttyist: 








in 


nslsta 




ani 


nssrbr 




rz 






mvi 


a,0ffh 




ret 




ttyost : 








in 


nslsta 




ani 


nsstbe 




rz 






mvi 


a,0ffh 




ret 





* * 

********************************************************************* 



crtm: 








ptrin: 










in 


nsrsta 






ani 


nssrbr 






jz 


crtin 






in 


nsrdat 






ani 


7fh 






ret 






crtout : 








ptpout: 










in 


nsrsta 






ani 


nsstbe 






jz 


crtout 






mov 


a,c 






out 


nsrdat 






ret 






crtist: 








ptrist: 










in 


nsrsta 






ani 


nssrbr 






rz 








mvi 


a,0ffh 






ret 






. crt©s"t: 


OK 1 o%r- 









in 


nsrstaT^X 


_____ CL^ 




ani 


nsstbe — ) — 






rz 


- •■- - '"" 






mvi 


a,0ffh 






ret 






- 













;Read a character 



;Wait till a character is ready 
;Get the character 
; Strip parity 



;Write a character 



;Wait till the buffer is empty 
; Write the character 



; Return input buffer status 

; Return not ready 

; There is a character ready 

; Return output buffer status 

; Return not ready 
; Return ready 




01 A,orPtt 



********************************************************* *Trr****t* jfc* *„* * * * 

* * 

* Parallel port routines. Use UC1:, UR1 : , UR2:, UP1:, UP2: , LPT:, * 

* and UL1 : devices. * 

* * 

************************************************************************* 




<J(*osr (*J 2- 



uclin: 






urlin: 






ur2in: 








in 


nspsta 




am 


nsprbr 




jz 


uclin 




in 


nspdat 




push 


psw 




mvi 


a,30h 




out 


nspsta 




pop 


psw 




am 


7fh 




ret 




uclout: 






uplout: 






up2out : 






lptout: 






ullout : 








in 


nspsta 




am 


nsptbe 




Dz 


uclout 




mvi 


a,20h 



;Read a character 



;Wait till a character is ready 
;Get the character 

; Reset the parallel input flag 



; Strip parity 



; Write a character 



;Wait till the buffer is empty 
; Reset the parallel output flag 



c 





out 


nspsta 




mov 


a, c 


nspout: 


ori 


80h 




out 


nspdat 




ani 


7fh 




out 


nspdat 




ori 


80H 




out 


nspdat 




ret 




uclist: 






urlist: 






ur2ist: 








in 


nspsta 




ani 


nsprbr 




rz 






mvi 


a,0ffh 




ret 




lptost: 






"Txliost^ 


w *'" '" 






in 


nspsta 




ani 


nsptbe 




rz 






mvi 


a,0ffh 




ret 





; Write the character, strobe bit 7 



; Return input buffer status 

; Return not ready 

; Return ready 

; Return output buffer status 



endif 



; Return not ready 

; Return ready 

; North Star I/O configuration 



* LST: device driver routines. 

* Routine used depends on the value of lsttyp. Possible LSTTYP 

* values are listed as follows: 



***************************************************************** 
* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* LSTTYP is: 
* 

* 

* 

* 

* 

* 




1 
2 
3 
4 
5 



Nothing, used for patching, to PROM's 
Provide for 128 bytes of patch space 
Multio serial, no protocol 
Multio serial, Clear To Send protocol 
Multio serial, Data Set Ready protocol 
Multio serial, Xon/Xoff protocol 



************************************************************************* 

************************************************************************* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
************************************************************************* 



* 

* lsttyp: 1 Blank space for printer driver 
* 

* The driver entries LSTOUT and LSTOST are defined in the CP/M 

* alternation guide. Eg. Input parameters are in register C and 

* results are returned in register A. The LSTSET routine is used 

* for initialization code. It should execute a RET when complete, 
* 

* The LSTSET routine could be placed just below the CBOOT routine, 

* This space (below CBOOT) is recyled for use as a disk buffer 

* after CBOOT is done. 

* 



QO 



<T 






if 


lsttyp eq 1 


lstset 


equ 


■$ 


lstout 


equ 


$ 


lstost 


equ 


$ 




Dmp 


$ 




ds 


125 



; Printer initialization 

; Printer output 

; Printer output status 



endif 



;User 10 



***************************************************************** 
* * 

* 
* 



* lsttyp: 2, 3, 4, or 5 Serial printer, multi protocol 



***************************************************************** 



if 



lstout : 


call 


lstost 




ora 


a 




jz 


lstout 




raov 


a, c 




out 


thr 




ret 




lstost : 


call 


sellst 




in 


lsr 




ani 


thre 




rz 






lhld 


lstand 




in 


msr 




ana 


1 




xra 


h 




rz 






Ida 


lastch 




mov 


b,a 




in 


lsr 




ani 


dr 




jz 


xskip 




in 


rbr 




ani 


7fh 




sta 


lastch 




raov 


b, a 


xskip: 


mov 


a,b 




sui 


xof f 




jnz 


xsdone 



ret 

xsdone: mvi 
ret 



endif 



(lsttyp ge 2) and (lsttyp le 5) 

; Check printer status 
;Loop if not ready 
; Print the character 



a,0ffh 



; Printer status routine 

; Check if transmitter buffer empty 

; Return busy if buffer is not empty 

; Fetch handshake mask bits 

;Get MODEM Status Register 

; Strip out hand-shake lines 

; Invert status 

; Return busy if printer is busy 

;Get last character recieved from the printer 

; Check for a character from the printer 

;Skip if no character present 

;Get the character 

; Strip parity 

;Save last character recieved 



; Check for Xoff char (control S) 

; Printer ready 

; Printer not ready (return zero) 

; Printer ready for data 



;Multi I/O serial driver 



***************************************************************** 

* * 

* Gocpm is the entry point from cold boots, and warm boots. It * 

* initializes some of the locations in page 0, and sets up the * 

* initial DMA address (80h) . " * 

* * 

***************************************************************** 



gocpm : 



lxi 


h,buff 


call 


setdma 


mvx 


a, ( jmp) 


sta 


wbot 


sta 


entry 


lxi 


h,wboote 


shld 


wbot+1 


lxi 


h,bdos+6 



;Set up initial DMA address 

; Initialize jump to warm boot 

.•Initialize jump to BDOS 

;Set up low memory entry to CBIOS warm boot 

;Set up low memory entry to BDOS 





shld 


entry+1 




xra 


a 




sta 


buf sec 




sta 


bufwrtn 




sta 


error 




Ida 


cwflg 




ora 


a 




lxi 


h,coldmes 




jz 


cldcmnd 




lxi 


h,warmes 


cldcmnd 


:mov 


e,m 




inx 


h 




raov 


d,m 




ldax 


d 




inr 


a 




lxi 


h,ccp+7 




mov 


c,a 




mvi 


b,0 




call 


movbyt 




Ida 


cwflg 




ora 


a 




Ida 


autoflg 




jz 


cldbot 




rar 




cldbot: 


rar 






Ida 


cdisk 




mov 


c,a 




jc 


ccp 




jmp 


ccp+3 


cwflg: 


db 






;A <- 

;Set buffer to unknown state 
;Set buffer not dirty flag 
; Clear buffer error flag 

;Get cold/warm boot flag 

; Pointer to initial cold command 

; Pointer to initial warm command 
;Do one level of indirection 



;Get command length 

;Bump length to include length byte itself 
jCommand buffer (includes length byte) 
;Set up for block move 

;Move command to internal CCP buffer 

; Figure out whether or not to send message 



;Jump to CP/M with currently selected disk in C 

; Enter CP/M, send message 
; Enter CP/M, no message 

; Cold/warm boot flag 

***************************************************************** 

* * 

* WBOOT loads in all of CP/M except the CBIOS, then initializes * 

* system parameters as in cold boot. See the Cold Boot Loader * 

* listing for exactly what happens during warm and cold boots. * 

* * 

***************************************************************** 



wboot: lxi 
mvi 
sta 

mvi 
mvi 
call 
jnc 

hit 
db 

jmp 



sp, tpa 

a,l 

cwflg 

h,wmdrive 
l,d$wboot 
jumper 
gocpm 




wboot 



;Set up stack pointer 

;Set cold/warm boot flag 

;Move drive to warm boot off of into (h) 
;Peform warm boot operation 

;No error 

;Halt computer 

;In case user restarts the computer 



***************************************************************** 

* * 

* Setsec just saves the desired sector to seek to until an * 

* actual read or write is attempted. * 

* * 

***************************************************************** 



setsec: 


mov 


h,b 




mov 


l,c 




shld 


cpmsec 


donop: 


ret 





; Enter with sector number in (be) 



home: 


Ida 


bufwrtn 




ora 


a 




jnz 


dohome 




xra 


a 




sta 


bufsec 


dohome : 


lxi 


b,0 



***************************************************************** 

* * 

* Setdma saves the DMA address for the data transfer. * 

* * 

***************************************************************** 

setdma: mov h,b ;Enter with DMA address in (be) 

mov 1 , c 

shld cpmdma ;CP/M dma address 

ret 

************************************************************* 

* * 

* Home is translated into a seek to track zero. * 

* * 

***************************************************************** 

;Test buffer dirty flag 

;Skip buffer disable if buffer dirty 
; Invalidate buffer on home call 

; Track to seek to 

***************************************************************** 

* * 

* Settrk saves the track # to seek to. Nothing is done at this * 

* point, everything is deffered until a read or write. * 

* * 

***************************************************************** 

settrk: mov h,b ; Enter with track number in (be) 

mov 1 , c 

shld cpmtrk 
ret 

***************************************************************** 

* * 

* Sectran translates a logical sector number into a physical * 

* sector number. * 

* * 

***************************************************************** 

sectran: Ida cpmdrv ;Get the Drive Number 

mov h,a ; Drive in (h) 

mvi l,d$stran 

jmp jumper ;See device level sector translation routines 

***************************************************************** 

* * 

* Setdrv selects the next drive to be used in read/write * 

* operations. If the drive has never been selected it calls * 

* a low level drive select routine that should perform some * 

* sort of check if the device is working. If not working then * 

* it should report an error. If the logical drive has been * 

* selected before then setdrv just returns the DPH without * 

* checking the drive . * 

* * 

********************************** **,* **************************** 

setdrv: mov a#c ;Save the logical drive number 

sta cpmdrv 

cpi maxlog ; Check for a valid drive number 

jnc zret ; Illegal drive 



setd0: 



setdl: 



setd2: 



setd3 : 



gdph: 



zret: 



mov 


a, e 


ani 


1 


jnz 


setd3 


mov 


h, c 


mvi 


l,d$sell 


call 


jumper 


mov 


a,h 


ora 


1 


jz 


zret 


push 


h 


call 


gdph 


pop 


d 


mov 


m,e 


inx 


h 


mov 


m,d 


inx 


h 


mov 


m # c 


inx 


h 


mov 


a,m 


ora 


a 


cz 


getbad 


xchg 




mov 


a, c 


sta 


secsiz 


xra 


a 


dcr 


c 


jz 


setd2 


rlc 




ori 


1 


jmp 


setdl 


sta 


secpsec 


Ida 


cpmdrv 


sta 


lastdrv 


ret 




push 


d 


mov 


h, c 


mvi 


l,d$sel2 


call 


jumper 


call 


gdph 


pop 


d 


mov 


e,m 


inx 


h 


mov 


d,m 


inx 


h 


mov 


c,m 


xchg 




jmp 


setd0 


Ida 


cpmdrv 


rlc 




rlc 




mov 


e,a 


mvi 


d,0 


lxi 


h,dphtab 


dad 


d 


ret 




lxi 


h,0 


Ida 


lastdrv 


mov 


c,a 


Ida 


cdisk 


ani 


0f0h 



; Check if bit of (e) = 1 

; Drive has allready been accessed 

;Move logical drive into (h) 

;Call low level drive select 

; Check if the low level drive select returned 

; zero to indicate an error 

;Yes, an error so report to CP/M 

;Save DPH address 

;Get entry if DPH save table 

;DPH -> (de) 

;Put address of DPH in table 



;Put sector size in table 

; Check if bad map has ever been read for this 

; drive 

; Never been read so read in bad map 

;DPH -> (hi) 

;Move sector size code into (a) 
;Save sector size 

; Create number of (128 bytes/physical sector)-! 



;Save for deblocking 

; Save current drive as old drive 

; in case of select errors 



;Save DPH address 
;Drive in (h) 
;Select drive 



;Quick select 
;DPH -> (de) 



; Sector size -> (c) 
;DPH -> (hi) 



; Return pointer to DPH save area 
;Each entry is 4 bytes long 



DPH save area table 

Add offset 

(hi) = DPH save area for current drive 

;Seldrv error exit 

;Get last selected drive 

;Pick up user/drive 
;Save user number 



ora 

sta 
ret 



c 
cdisk 



;Put together with old drive 



***************************************************************** 

* * 

* DPH save area. Each entry is 4 bytes long: * 

* - LSB of DPH address * 

* 1 - MSB of DPH address * 

* 2 - Sector size code (1 = 128, 2 = 256, 3 = 512... * 

* 3 - Bad map has been initilized (0 = Uninitilized) * 

* * 

***************************************************************** 

dphtab: rept maxlog*4 

db 
endm 

***************************************************************** 

* * 

* Getbad - Check if a device has a bad map. If the device has * 

* a bad sector map then append bad entries to end of badmap * 

* table. " * 

* * 

***************************************************************** 



getbad: 



badl: 



mvi 


m, 1 


push 


b 


push 


d 


Ida 


cpmdrv 


mov 


h, a 


mvi 


l,d$bad 


call 


jumper 


mov 


a,h 


ora 


1 


jz 


badret 


mov 


e,m 


inx 


h 


mov 


d,m 


inx 


h 


xchg 




shld 


cpmtrk 


xchg 




mov 


a,m 


inx 


h 


mov 


h,m 


mov 


l,a 


shld 


truesec 


call 


fill 


re 




lhld 


badptr 


lxi 


d, buffer 


ldax 


d 


ora 


a 


jz 


bade 


mov 


a,m 


inr 


a 


jz 


overflo 


Ida 


cpmdrv 


mov 


m,a 


inx 


h , 


lxi 


b,8 


call 


movbyt 



;Set drive initilized 



;Pick up current drive 

;Call drive routine to return a pointer to 

;the track and sector of the bad map 



;If routine returns then the device has 
; no bad sector map 



;Pick up track number of bad sector map -> (de) 



;Pick up sector number of of bad sector map 



;Read in bad sector map into the buffer 



;Pick up bad map pointer 

; Start at beginning of buffer 

;Pick up an entry from the buffer 

; All done 

;Pick up entry from bad map table 

;Bad map overflow 
;Put drive in table 



;Move the rest of information into the table 



3mp 



badl 



bade: shld 
badret: pop 
pop 
ret 


badptr 

d 

b 


overflo:lxi 
call 

jrnp 


h,omes 

message 

badret 



; Restore new bad map pointer 



oraes; 



db 



nobad : lxi 
ret 

badptr : dw 



0dh, 0ah, 'BAD MAP 0VERFL0W1 ' , 0dh, 0ah, 
h,0 



badmap 



;Used by device drives to indicate no bad 
; sector map 

; Pointer to next available bad map entry 



***************************************************************** 

* * 

* Write routine moves data from memory into the buffer. If the * 

* desired CP/M sector is not contained in the disk buffer, the * 

* buffer is first flushed to the disk if it has ever been * 

* written into, then a read is performed into the buffer to get * 

* the desired sector. Once the correct sector is in memory, the * 

* buffer written indicator is set, so the buffer will be * 

* flushed, then the data is transferred into the buffer. * 

* * 

***************************************************************** 



write: 



mov 
sta 

mvi 
jrnp 



a,c 

writtyp 
a,l 
rwent 



;Save write command type 
;Set write command 



***************************************************************** 

* * 

* Read routine to buffer data from the disk. If the sector * 

* requested from CP/M is in the buffer, then the data is simply * 

* transferred from the buffer to the desired dma address. If * 

* the buffer does not contain the desired sector, the buffer is * 

* flushed to the disk if it has ever been written into, then * 

* filled with the sector from the disk that contains the * 

* desired CP/M sector. * 

* * 

***************************************************************** 

read: xra a ;Set the command type to read 

if nostand ne 

sta unaloc ;Clear unallocated write flag 

endif 

rwent: sta rdwr ;Save command type 

***************************************************************** 

* Redwrt calculates the physical sector on the disk that * 

* contains the desired CP/M sector, then checks if it is the * 

* sector currently in the buffer. If no match is made, the * 

* buffer is flushed if necessary and the correct sector read * 

* from the disk. * 

* * 

***************************************************************** 



redwrt: mvi b,0 
secsiz equ $-1 



The is modified to contain the log2 
of the physical sector size/128 
on the currently selected disk 



lhld 


cpmsec 


mov 


a,h 


ani 


80h 


mov 


c,a 


mov 


a,h 


ani 


7fh 


mov 


h,a 


dcx 


h 


divloopzdcr 


b 


J2 


divdone 


ora 


a 


mov 


a,h 


rar 




mov 


h, a 


mov 


a,l 


rar 




mov 


l.a 


jmp 


divloop 


divdone:inx 


h 


mov 


a,h 


ora 


c 


mov 


h,a 


shld 


truesec 


lxi 


h, cpmdrv 


lxi 


d,bufdrv 


mvi 


b,6 


dtslop: dcr 


b 


jz 


move 


ldax 


d 


cmp 


m 


inx 


h 


inx 


d 


jz 


dtslop 



;Get the desired CP/M sector # 

;Save only the side bit 
; Remember the side 

; Forget the side bit 

;Temporary adjustment 
; Update repeat count 



; Divide the CP/M sector # by the size 
; of the physical sectors 



; Restore the side bit 

;Save the physical sector number 

;Pointer to desired drive, track, and sector 

; Pointer to buffer drive, track, and sector 

; Count loop 

;Test if done with compare 

;Yes, match. Go move the data 

;Get a byte to compare 

;Test for match 

;Bump pointers to next data item 

;Match, continue testing 



***************************************************************** 

* * 

* 
* 

* * 
****************************************************** * * ********* 



* Drive, track, and sector don't match, flush the buffer if 

* necessary and then refill. 



call 
re 



fill 



;Fill the buffer with correct physical sector 
;No good, return with error indication 



***************************************************************** 

* * 

* Move has been modified to cause either a transfer into or out * 

* the buffer. * 

* * 

***************************************************************** 



move: 


Ida 


cpmsec 




dcr 


a 




am 





secpsec 


equ 


$-1 




mov 


l,a 




mvi 


h,0 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 



;Get the CP/M sector to transfer 
;Adjust to proper sector in buffer 
;Strip off high ordered" bits * ■ 

;The is modified to represent the # of 
; CP/M sectors per physical sectors 
;Put into HL 

;Form offset into buffer 



; Beginning address of buffer 

;Form beginning address of sectgr to transfer 

;DE = address in buffer 

7 Get DMA address, the is modified t/ 

; contain the DMA address 

;The zero gets modified to contain 

; a zero if a read, or a 1 if write 

;Test which kind of operation 
.•Transfer data into the buffer 

;Get the buffer error flag 



Move the data, HL = destination 
DE = source 

; Set buffer written into flag 
; Check for directory write 

;Test for a directory write 

;No error exit 

***************************************************************** 
* 

* Flush writes the contents of the buffer out to the disk if 

* it has ever been written into. 
* 

***************************************************************** 

flush: mvi a,0 ;The is modified to reflect if 

; the buffer has been written into 

; Test if written into 
7Not written, all done 





lxx 


d, buffer 




dad 


d 




xchg 






lxi 


h,0 


cpmdma 


equ 


$-2 




mvi 


a,0 


rdwr 


equ 


?-l 




ana 


a 




jnz 


into 


outof : 


call 


movl28 




Ida 


error 




ret 




into: 


xchg 






call 


movl28 




mvi 


a,l 




sta 


bufwrtn 




mvi 


a,0 


writtyp 


equ 


$-1 




dcr 


a 




mvi 


a,0 




rnz 





equ 


$-1 


ora 


a 


rz 




mvi 


a,d$write 


sta 


rwop+1 


call 


prep 


sta 


error 


ret 





7 Do the physical write 
7 Set up the error flag 



***************************************************************** 

* * 

* Prep prepares to read/ write the disk. Retries are attempted. * 

* Upon entry, H&L must contain the read or write operation * 

* address. * 

* * 

***************************************************************** 



prep: call 
di 


alt 


xra 

sta 


a 
bufwrtn 


mvi 
retrylp:push 


b, retries 
b 


mvi 
call 


l,d?sel2 
jumpbuf 


lhld 


alttrk 


mov 


a.h 



; Check for alternate sectors 

7 Reset interrupts 

7 Re set buffer written flag 



7Maximum number of retries: to attempt 
7 Save the retry count 

7 Select drive 

7 Track number -> (hi) 
7 Test for track zero 



ora 



push 


h 


mvi 


l,d$home 


cz 


jumpbuf 


pop 


b 


mvi 


l,d$strk 


call 


jumpbuf 


lhld 


altsec 


ItlOV 


b,h 


mov 


c,l 


mvi 


l,d$ssec 


call 


jumpbuf 


Ixi 


b, buffer 


mvi 


l,d$sdraa 


call 


jumpbuf 


mvi 


1,0 


call 


jumpbuf 


pop 


b 


mvi 


a,0 


rnc 




dcr 


b 


stc 




mvi 


a,0ffh 


rz 




mov 


a,b 


cpi 


retries/2 


jnz 


retrylp 


push 


b 


mvi 


l,d$home 


call 


jumpbuf 


pop 


b 


jmp 


retrylp 



;Save track number 
; Restore track # 

; Sector -> (hi) 



;Set the DMA address 



rwop: mvi 1,0 ;Get operation address 



; Restore the retry counter 

;No error exit status 

; Return no error 

; Update the retry counter 

; Assume retry count expired 

; Error return 

; Return sad news 



;Try again 

; Save retry count 

;Home drive after (retries/2) errors 



;Try again 

********************************************************* 

* * 

* Fill fills the buffer with a new sector from the disk. * 

* * 

***************************************************************** 



fill; 



call 


flush 


re 

Ixi 

Ixi 

Ixi 

call 


d, cpmdrv 
h,bufdrv 
b,5 
movbyt 


Ida 


rdwr 


ora 

jz 
Ida 


a 

fread 

writtyp 


if 


no stand ne 


ora 
jnz 


a 
fnaloc 


Ida 


unaloc 


ora 

jz 

lhld 


a 

fwritin 

cblock 



;Flush buffer first 

; Check for error 

; Update the drive, track, and sector 

; Number of bytes to move 
;Copy the data 

;Test read write flag 

;Skip write type check if reading 
;0 = alloc, 1 = dir, 2 = unalloc 

;Do non standard (but quick and dirty) check 

;Skip if not an allocated write 

; Check unallocated write in progress flag 

;We are doing an allocated write 
;Get current block address 



xchg 




lhld 


oblock 


mov 


a,d 


cmp 


h 


jnz 


awritin 


mov 


a, e 


cmp 


1 


jnz 


awritin 


lxi 


h,cpmdrv 


Ida 


unadrv 


cmp 


m 


jnz 


awritin 


ret. 




fnaloc: dcr 


a 


jz 


awritin 


lhld 


cblock 


shld 


oblock 


Ida 


cpmdrv 


sta 


unadrv 


mvi 


a, 1 


sta 


unaloc 


ret 




awritin :xra 


a 


sta 


unaloc 



else 

sui 
rz 

endif 



fwritin:lda 


secsiz 


dcr 


a 


rz 




fread: mvi 


a,d$read 


sta 


rwop+1 


call 


prep 


sta 


error 


ret 





; and old block address 
; Compare old versus new 

;Different, clear unallocated writting mode 



;Test for different drive 



; Drive is different, clear unallocated mode 
;Unallocated write, do nothing. . . 



;Do a directory write 

;We are now doing an unallocated write 

;Save current block number 

;Save drive that this block belongs to 

;Set unallocated write flag 

; and we do nothing about the write 

;Clear unallocated writting mode 

;Do standard unallocated test 
;Test for an unallocated write 



; Check for 128 byte sectors 
;No deblocking needed 



;Read the physical sector the buffer 
;Set the error status 



************************************************************* 

* * 

* Jumpbuf, jumper are used to dispatch to a low level device * 

* subroutine. Jumper is called with the drive in (h) and the * 

* routine number (see description above) in (1). It passes * 

* along the (be) and (de) registers unaltered. Jumpbuf is 

* a call to jumper with the drive number from bufdrv. 



* 



* 

* * 

***************************************************************** 



jumpbuf : Ida 
mov 


bufdrv 
h, a 


jumper: push 
push 
push 
mov 
lxi 

j umpl : mov 
ldax 


d 

b 

h 

a,h 

d.dsttab 

c, a 

d 


mov 


l.a 



; Dispatch with bufdrv for drive 



.•Logical drive into (a) 

; Drive specification pointer table 

;Save logical in (c) 



xnx 


d 


ldax 


d 


raov 


h,a 


xnx 


d 


mov 


a,c 


sub 


m 


jnc 


]um 


inx 


h 


pop 


d 


mov 


a, e 


rlc 




mov 


e, a 


mvi 


d,0 


dad 


d 


mov 


a,m 


mx 


h 


mov 


h,m 


mov 


l,a 


mov 


a, c 


Pop 


b 


pop 


d 


pchl 





;Get a DST pointer in (hi) 

;Logical in (a) 

; Subtract from first entry in DST 

;Keep scanning table till correct driver found 

;Bump (hi) to point to start of dispatch table 

;Real (hi) -> (de) 

;Move offset number into (a) 

;Each entry is 2 bytes 

;Make an offset 

; (hi) = **Routine 

;Pick up address of handler for selected 

; function 

;(hl) = *routine 

.•Logical in (a) 

; Restore saved registers 



***************************************************************** 

* * 

* Check for alternate sectors in bad sector table. If an * 

* alternate sector is found replace alttrk and altsec with * 

* new sector number else pass along unaltered. * 

* * 

***************************************************************** 



alt: 



all; 



alt2; 



lxi 


h,badmap 


Ida 


bufdrv 


mov 


c,a 


xchg 




lhld 


badptr 


xchg 




mov 


a,d 


cmp 


h 


jnz 


alt2 


mov 


a, e 


cmp 


1 


jnz 


alt2 


lhld 


buftrk 


shld 


alttrk 


lhld 


bufsec 


shld 


altsec 


ret 




push 


h 


mov 


a,c 


cmp 


m 


jnz 


altmis 


inx 


h 


Ida 


buftrk 


cmp 


m 


jnz 


altmis 


inx 


h 


Ida 


buftrk+1 


cmp 


m 


jnz 


altmis 


inx 


h 


Ida 


bufsec 


cmp 


m 


jnz 


altmis 



;Address of bad map -> (hi) 

;Pick up drive number currently working on 

;Move drive into (c) for speed in search 

Get bad map pointer 

-> (de) 
Check if at end of bad map table 

; Still more 



; Still more 

;Eo alternate sector so use selected sector 



;Save current bad map entry address 
,'Move drive into (a) 
; Check if drive in table matches 
;Does not match skip this entry 
; Point to LSB of alternate track 
;Pick up LSB of buffer track 



; Point to MSB alternate track 
; Pick up MSB of buffer track 



;Point to LSB of alternate sector 
;Pick up LSB of buffer sector 



; Point to MSB of alternate sector 
;Pick up MSB of buffer sector 

; Found an alternate sector 

; Point to real info on the alternate sector 

;MOVLOP (de) = source, (hi) = dest 

;Move alternate sector info in correct place 



; Current alternate did not match 

;Bump pointer by the length of an entry 

;Loop for more 

*********************************************************** 

* * 

* Mover moves 128 bytes of data. Source pointer in DE, Dest * 

* pointer in HL. * 

* * 

***************************************************************** 



inx 


h 


Ida 


buf sec+1 


cmp 


m 


}nz 


altmis 


mx 


h 


lxi 


d,alttrk 


xchg 




push 


b 


lxi 


b,4 


call 


movbyt 


pop 


b 


pop 


h 


ret 




altmis: pop 


h 


lxi 


d,9 


dad 


d 


jmp 


all 



movl28: 


lxi 


b,128 


movbyt : 


xra 


a 




adi 


3 




jpo 


z80mov 


m8080: 


ldax 


d 




mov 


m,a 




xnx 


d 




mx 


h 




dcx 


b 




mov 


a,b 




ora 


c 




jnz 


m8080 




ret 




z80mov: 


xchg 






dw 


0b0edh 




xchg 






ret 





; Length of transfer 

;Check if host processor is a Z80 

;Yes, Its a Z80 so use block move 

;Get a byte of source 
•Move it 
;Bump pointers 

; Update counter 
;Test for end 



; Source in (hi), Destination in (de) 
; ldir 



***************************************************************** 

* * 

* Return DPH pointer. Enter with (de) with DPH base address * 

* and (a) with logical drive number. Returns with DPH address * 

* in (hi) . * 

* * 
***************************************************************** 



retdph 


mov 


l,a 




mvi 


h,0 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


d 




ret 





•Move logical drive into (1) • 
;Multiply by 16 (size of DPH) 

?(hl) = pointer to DPH 



***************************************************************** 

* * 

* Utility routine to output the message pointed at by (hi) * 



* terminated with a null. * 

* * 

***************************************************************** 






message: mo v 


a,m 


mx 


h 


ora 


a 


rz 




push 


h 


mov 


c,a 


call 


cout 


pop 


h 


]mp 


message 



;Get a character of the message 

;Bump text pointer 

•Test for end 

; Return if done 

;Save pointer to text 

; Output character in C 

; Output the character 

; Restore the pointer 

;Continue until null reached 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* The following code is for the Diskus Hard disk 
* 



if 



hdorg equ 



hdca ne 



50h 



hdstat 


equ 


hdorg 


hdcntl 


equ 


hdorg 


hdreslt 


equ 


hdorg+1 


hdcmnd 


equ 


hdorg+1 


hdskomp 


equ 


hdorg+2 


hdfunc 


equ 


hdorg+2 


hddata 


equ 


hdorg+3 



;Want HDC3 or 4 controller included ? 

;Hard Disk Controller origin 

;Disk Status 

;Disk Control 

;Disk Results 

;Disk Commands 

;Seek complete clear port (on HDC4) 

; Function port 

; Data port 



Status port (50) 



tkzero 


equ 


01h 


opdone 


equ 


02h 


complt 


equ 


04h 


tmout 


equ 


08h 


wfault 


equ 


10h 


drvrdy 


equ 


20h 


index 


equ 


40h 



Control port (50) 



hdfren 


equ 


01h 


hdrun 


equ 


02h 


hdclok 


equ 


04h 


hdwprt 


equ 


08h 



; Result port (51) 

retry equ 02h 

; Command port (51) 

idbuff equ 

rsect equ 1 

wsect equ 5 

isbuff equ 8 

; Function port (52) 



pstep equ 
nstep equ 
null equ 



04h 

0f fh-pstep 

0fch 



; Track zero 
; Operation done 
;Seek complete 
;Time out 
; Write fault 
; Drive ready 
; Delta index 



; Enable external drivers 

; Enable controllers state machine 

; Clock source control bit, high = disk 

;Write protect a drive 



; Retry flag 



; Initialize data buffer pointer 

;Read sector 

; Write sector 

; Initialize header buffer pointer 



;Step bit 
;Step bit mask 
;Null command 



Misc constants 

hdrlen equ 4 
seclen equ 512 



; Sector header length 
; Sector data length 



***************************************************************** 

* * 

* Device Specification Table for HDCA controller driver * 

* * 

*************************************************************** 



hddst: 


db 


maxhd*hdlog 




dw 


hdwarm 




dw 


hdtran 




dw 


hdldrv 




dw 


hddrv 




dw 


hdhome 




dw 


hdseek 




dw 


hdsec 




dw 


hddma 




dw 


hdread 




dw 


hdwrite 




dw 


nobad 


hdwarm: 


call 


divlog 




xra 


a 




lxi 


h,ccp-200h 




push 


h 




sta 


head 




inr 


a 




push 


psw 




call 


hdd2 




ravi 


c,0 




call 


hdhome 


hdwrld : 


pop 


psw 




pop 


h 




inr 


a 




sta 


hdsect 




cpi 


13 




rz 






inr 


h 




inr 


h 




shld 


hdadd 




push 


h 




push 


psw 


hdwrrd: 


lxi 


b, retries*100h+0 


hdwr : 


push 


b 




call 


hdread 




pop 


b 




jnc 


hdwrld 




dcr 


b 




jnz 


hdwr 




stc 






ret 




hdtran: 


mov 


h,b 




mov 


l.c 




inx 


h 




ret 




hdldrv: 


sta 


hdcur 




call 


divlog 




mov 


a,c 




sta 


hddisk 




call 


hdptr 




mov 


a,m 



; Number of logical drives 

;Warm boot 

; Sector translation 

;First time select 

; General select 

;Horae current selected drive 

;Seek to selected track 

; Select sector 

;Set DMA address 

;Read a sector 

;Write a sector 

;No bad sector map 

;Get physical drive number in (c) 

; Initial DMA address 



; Select head zero 
; 1 -> (a) 
;Save first sector 
; Select drive 



- 1 



;Home the drive 
; Restore sector 
; Restore DMA address 



;Past BDOS ? 

jYes, all done 

; Update DMA address 



; Retry counter 

;Save the retry count 

;Read the sector 

;Test for error 

; Update the error count 

;Keep trying if not too many errors 

; Error flag 



; Sector translation is handled via 
; physical sector header skewwing 



;Save logical disk 

; Divide by logical disks per drive 

;Save new physical drive 
;Get track pointers 
;Get current track 





xnr 


a 




jnz 


hdl2 




ori 


null 




out 


hdfunc 




mvi 


a , hdf r en+hdc lok 




out 


hdcntl 




mvi 


c,239 




lxi 


h,0 


hdtdel: 


dcx 


h 




mov 


a,h 




ora 


1 




cz 


dcrc 




jz 


zret 




in 


hdstat 




ani 


drvrdy 




jnz 


hdtdel 




if 


not fujitsu 




lxi 


h,0 




mvi 


c, index 




in 


hdstat 




ana 


c 




mov 


b,a 


hdinxdl 


:in 


hdstat 




ana 


c 




cmp 


b 




jz 


hdinxdl 


hdindx2 


:inx 


h 




in 


hdstat 




ana 


c 




cmp 


b 




jnz 


hdindx2 




if 


ml0 




dad 


h 




end if 






if 


m26 




xra 


a 




mov 


a,h 




rar 






mov 


d,a 




mov 


a,l 




rar 






mov 


e,a 




dad 


d 




endif 






shld 


settle 




endif 






call 


hdhome 


hdl2: 


Ida 


hdcur 




lxi 


d,dphhd0 




mvi 


c, 3 




jmp 


retdph 


dcrc: 


dcr 
ret 


c 


divlog: 


mvi 


c , 


divlx: 


sui 
re 


hdlog 




inr 


c 




jmp 


divlx 



; Check if -1 

;Kfope, allready accessed 

;Select drive 

;Enable drivers 

;Wait 2 minutes for disk ready 



; Drive not ready error 
;Test if ready yet 



;Time one revolution of the drive 



;Save current index level in B 



;Loop until 1 index level changes 



; Start counting untill index returns to 
; previous state 



;Memorex M10's have 40 ms head settle 
;HL*2 



;Shugart M26's have 30 ms head settle 
;HL/2 + HL (same as HL*1.5) 



?Save the count for timeout delay 



;Load logical drive 

; Start of hard disk DPH's 

;Hard disk sector size equals 512 bytes 



; Conditional decrement C routine 



hddrv : 


sta 


hdcur 






call 


divlog 


;Get the physical 


hdd2: 


mov 


a,c 






sta 


hddisk 


; Select the drive 




ori 


null 






out 


hdf unc 






mvi 


a,hdfren+hdrun+hdclok+hdwprt ;Write pro 




out 


hdcntl 






ret 






hdhome : 


call 


hdptr 


;Get track pointer 




mvi 


m,0 


;Set track to zero 




in 


hdstat 


;Test status 




ani 


tkzero 


;At track zero ? 




rz 




;Yes 




if 


not fujitsu 




hdstepo 


:in 


hdstat 


;Test status 




ani 


tkzero 


;At track zero ? 




jz 


hddelay 






mvi 


a,l 






stc 








call 


accok 


;Take one step out 




jmp 


hdstepo 





else 





xra 


a 




jmp 


accok 




end if 






if 


not fujitsu 


hddelay 


:lhld 


settle 


deloop: 


dcx 


h 




mov 


a,h 




ora 


1 




inx 


h 




dcx 


h 




jnz 


deloop 


... 


ret'""" 






end if 




hdseek: 


call 


hdptr 




mov 


e,m 




mov 


m,c 




mov 


a .» e 




sub 


c 




r 'Z;. ■ 






cmc 






jc 


hdtrk2 




cm a 






inr: 


a 




if 


fujitsu 


hdtrk2: 


jmp - 
else 


accok 


hdtrk2: 


call 


accok 




jmp 


hddelay 




endif 




accok : 


mov 


b,a 




call 


build 


sloop: 


ani 


nstep 




out 


hdfunc 




ori 


pstep 




out 


hdfunc 



;Get hddelay 
;Wait 20ms 



;Get pointer to current track 
; Get current track 
; Update the track 
;Need to' seek at all ? 



;Get carry into direction 



;Prep for build 

•Get step pulse low 
; Output low step line 
;Set step line high 
; Output hiqh step line 





dcr 


b 




jnz 


sloop 




jmp 


wsdone 


hddma : 


raov 


h,b 




mov 


l,c 




shld 


hdadd 




ret 




wsdone: 


in 


lid stat 




ani 


compl t 




jz 


wsdone 




in 


hdskomp 




ret 






if 


ra26 


hdsec: 


mvi 


a,01fh 




ana 


c 




cz 


getspt 




sta 


hdsect 




mvi 


a,0e0h 




ana 


c 




rlc 






rlc 






rlc 






sta 


head 


getspt: 


mvi 
ret 


a, hdspt 



; Update repeat count 

;Keep going the required # of tracks 



; Save the DMA address 



;Wait for seek complete to finish 



; Clear sdone bit on an HDCA4 



;For compatibility with Cbios revs. 

2.3 and 2.4 
,-Mask in sector number (0-31) 
.•Translate sector to sector 32 
; Save translated sector number (1-32) 
;Get the head number 



; Save the head number 



else 



hdsec: 


mov 


a, c 




call 
adi 


divspt 
hdspt 




ana 


a 




cz " 


geirspt" 




sta 


hdsect 




mov 


- 3VC " 




sta 


head 


getspt: 


mvi 
dcr 


" - a,hT3Tspt 

c 




ret 


■■'■' '""""""" ■'';■ ■'"" '.'■"■'"■— m" ■**«■■ ■■.-!■." 


divspt: 


mvi 


p*0 


divsx: 


sui 

re ,!■■, 


hdspt 




inr 


c 




jmp 
end if 


divsx 


hdread: 


call 


hdprep 




xra 


a 




PHt 


hdcmnd 




cma 






out 


hddata 




out 


hddata 




mvi 


a,rsect 




out 


hdcmnd 




call 


process 




re 


■ i 




xra 


'.. a • ' 




out 


hdcmnd 




mvi 


b, seclen/4 




lhld 


hdadd 



; Read sector command 



• 



xn 


hddata 


in 


hddata 


rtloop: in 


hddata 


raov 


m, a 


inx 


h 


in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


dcr 


b 


jnz 


rtloop 


ret 




hdwrite:call 


hdprep 


re 




xra 


a 


out 


hdcmnd 


lhld 


hdadd 


mvi 


b, seclen/4 


wtloop : mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


dcr 


b 


jnz 


wtloop 


mvi 


a,wsect 


out 


hdcmnd 


call 


process 


re 




mvi 


a,wfault 


ana 


b 


stc 




rz 




xra 


a 


ret 




process: in 


hdstat 


mov 


b,a 


ani 


opdone 


jz 


process 


mvi 


a,hdfren+hdrun+hdclok 


out 


hdcntl 


in 


hdstat 


ani 


tmout 


stc 




rnz 




in 


hdreslt 


ani 


retry 


stc 




rnz 




xra 


a 


ret 





;Move four bytes 



;Prepare header 



;Move 4 bytes 



; Issue write sector command 



;Wait for command to finish 



;Write protect 



; Timed out ? 



;Any retries ? 



hdprep: in 
ani 
stc 
rnz 
mvi 
out 
call 
ori 
out 
Ida 
out 
call 
mov 
out 
ana 
mvi 

jz 
mvi 

zkey: Ida 
out 
mov 
out 
mvi 
out 
mvi 
out 
xra 
ret 



hdstat 
drvrdy 



a, isbuf f 

hdcmnd 

build 

0ch 

hdfunc 

head 

hddata 

hdptr 

a,m 

hddata 

a 

b,80h 

zkey 

b,0 

hdsect 

hddata 

a,b 

hddata 

a , hdf r en+hdr un+hdc lok 

hdcntl 

a,hdfren+hdrun+hdclok+hdwprt 

hdcntl 

a 



; Initialize pointer 



;Form head byte 

;Get pointer to current drives track 

;Form track byte 



;Form sector byte 

; Write protect 

;Write protect 



hdptr: 



build; 



lhld 

mvi 

xchg 

lxi 

dad 

ret 

Ida 
ral 
ral 
ral 
ral 
lxi 
ora 
xri 
ret 



hddisk 
h,0 

h,hdtrak 
d 



head 



h, hddisk 

m 
0f0h 



;Get a pointer to the current drives 
; track position 



; Build a controller command byte 



hdcur: db 

hdadd: dw 

hddisk: db 

head : db 

hdsect: db 

hdtrak: db 
db 



settle ; 



db 

db 

dw 
end if 










0ffh 
0ffh 
0ffh 
0ffh 





;Current logical disk 

;DMA address 

; Current physical disk number 

; Current physical head number 

; Current physical sector number 

Track pointer for each drive 
All drive default to an uncalibrated 
state (ff) 



;Time delay constant for head settle 



***************************************************************** 

* * 

* The following equates relate the Morrow Designs 2D/B * 

* controller. If the controller is non standard (0F800H) * 

* only the FDORIG equate need be changed . * 



T . ... . A 

************************************************************* 





if 


maxfd ne 


fdorig 


equ 


0f800H 


fdboot 


equ 


fdorig+00h 


fdcin 


equ 


fdorig+03h 


fdcout 


equ 


fdorig+06h 


fdhome 


equ 


fdorig+09h 


fdseek 


equ 


fdorig+0ch 


fdsec 


equ 


fdorig+0fh 


fddma 


equ 


fdorig+12h 


fdread 


equ 


fdorig+15h 


fdwrite 


equ 


fdorig+18h 


fdsel 


equ 


fdorig+lbh 


fdtstat 


equ 


fdorig+21h 


fdstat 


equ 


fdorig+2 7h 


fderr 


equ 


fdorig+2ah 


fdden 


equ 


fdorig+2dh 


fdside 


equ 


fdorig+30h 


fdram 


equ 


fdorig+400h 


dblsid 


equ 


20h 


io 


equ 


fdorig+3f3h 


dreg 


equ 


io+1 


cmdreg 


equ 


io+4 


clrcmd 


equ 


0d0h 



Include Discus 2D ? 

Origin of Disk Jockey PROM 

Disk Jockey 2D initialization 

Disk Jockey 2D character input routine 

Disk Jockey 2D character output routine 

Disk Jockey 2D track zero seek 

Disk Jockey 2D track seek routine 

Disk Jockey 2D set sector routine 

Disk Jockey 2D set DMA address 

Disk Jockey 2D read routine 

Disk Jockey 2D write routine 

Disk Jockey 2D select drive routine 

Disk Jockey 2D terminal status routine 

Disk Jockey 2D status routine 

Disk Jockey 2D error, flash led 

Disk Jockey 2D set density routine 

Disk Jockey 2D set side routine 

Disk Jockey 2D RAM address 

Side bit from controller 

Start of I/O registers 



***************************************************************** 

* * 

* Device Specification Table for the Disk Jockey 2D/B * 

* * 

***************************************************************** 



st: db 


maxfd 


dw 


fdwarm 


dw 


fdtran 


dw 


fdldrv 


dw 


fdsel2 


dw 


fdlhome 


dw 


fdseek 


dw 


fdssec 


dw 


fddma 


dw 


fdread 


dw 


fdwrite 


dw 


nob ad 



rNumber of logical drives 

;Warm boot 

; Sector translation 

rSelect drive 1 

r Select drive 2 

rHome drive 

;Seek to specified track 

rSet sector 

?Set DMA address 

rRead a sector 

rWrite a sector 

rNo bad sector map 



***************************************************************** 

* * 

* Floppy disk warm boot loader * 

* * 

***************************************************************** 



fdwarm: mov 


c,a 


call 


fdsel 


mvi 


c,0 


call 


fdside 


wrmfail :call 


fdhome 


jc 


wrmfail 



fflVl 


a, 5-2 


sta 


newsec 


lxi 


h,ccp-100h 


shld 


newdma 



; Select drive A 
; Select side 

;Track 0, single density 
;Loop if error 

The next block of code re-initializes 

the warm boot loader for track 
Initialize the sector to read - 2 

;First revolution DMA - 100h 

;Load all of track 



t0boot: 


ravi 


a, 5-2 


newsec 


equ 


$-1 




inr 


a 




inr 


a 




cpi 


27 




jc 


nowrap 




jnz 


tlboot 




sui 


27-6 




lxi 


h,ccp-80h 




shld 


newdma 


nowrap: 


sta 


newsec 




mov 


c,a 




call 


fdsec 




lxi 


h,ccp-100h 


newdma 


equ 


$-2 




lxi 


d f 100h 




dad 


d 


nowrp : 


shld 


newdma 




mov 


b,h 




mov 


c, 1 




call 


fddma 




lxi 


b,retries*100h+ 


wrmfred 


:push 


b 




call 


fdseek 




call 


f dread 




pop 


b 




jnc 


t0boot 




dcr 


b 




jnz 


wrmfred 




jmp 


fderr 


;Load track 1 # 


sector 1, sector 


tlboot: 


mvi 


c,l 




call 


fdseek 




lxi 


b,ccp+0b00h 




lxi 


d,10*100h+l 




call 


wrmread 




lxi 


b,ccp+0f00h 




lxi 


d, 10* 10011+3 




call 


wrmread 




lxi 


b,0300h 




lxi 


d,ccp+1300h 




lxi 


h,ccp+0f00h 


wrmcpy : 


mov 


a,m 




s £flX' 


d 




inx 


d 




inx 


h 




dcx 


b 




mov; 


a,b 




ora 


c 




jnz 


wrmcpy 




lxi 


b,ccp+0f00h 




lxi 


d,10*100h+2 




call 


wrmread 




xra 


a 




ret 




wrmread 


:push 


d 




call 


fddma 




pop 


b 



; First sector - 2 

;Update sector # 

;Size of track in sectors + 1 

;Skip if not at end of track 

;Done with this track 

;Back up to sector 6 

; Memory address of sector - 100h 

;Save the updated sector # 

;Set up the sector 

;Memory address of sector - 100h 

.•Update DMA address 

;Save the updated DMA address 



;Set up the new DMA address 
00h+0? Maximum # of errors, track # 

;Set up the proper track 
;Read the sector 

; Continue if no error 

;Keep trying if error 

;Too many errors, flash the light 



3 (partial), sector 2 (1024 byte sectors) 

; Track 1 

;Address for sector 1 
; Retry count + sector 1 

;Address for sector 2 
;Retry count + sector 3 



;Size of partial sector 
; Address for sector 3 
;Address of sector 3 

;Get a byte and 
; save it 
;Bump pointers 

;Bump counter 
; Check if done 

; if not, loop* 

; Address for sector 2 
; Retry count + sector 2 



; Clear error indicator 



;Set DMA address 







call 


fdsec 




wrrafrd: 


push 


b 






call 


fdread 






jc 


wrmerr 






call 


fdstat 






ani 


0ch 






sui 


0ch 




wrraerr: 


pop 
rnc 


b 






dcr 


b 






jnz 


wrmfrd 






jmp 


fderr 




fdtran: 


inx 


b 






push 


d 






push 


b 






call 


fdget 






lxi 


d,10 






dad 


d 






mov 


a,m 






inx 


h 






mov 


h,m 






mov 


1, a 






mov 


a,m 






ora 


a 






rar 








sub 


c 






push 


psw 






jm 


side two 




sidea: 


pop 


psw 






pop 


b 






Pop 


d 




sideone 


:xchg 








dad 


b 






mov 


l,m 






mvi 


h,0 






ret 






side two 


:call 


fdgsid 






jz 


sidea 






pop 


psw 






pop 


b 






cma 








inr 


a 






mov 


c,a 






Pop 


d 






call 


sideone 






mvi 


a,80h 






ora 


h 






mov 


h,a 






ret 






fdldrv: 


sta 


fdlog 






mov 


c, a 






mvi 


a,0 




flopflg 


equ 


$-1 






ana 


a 






jnz 


flopok 






mvi 


b f 17 






lxi 


h, fdboot 






mvi 


a, ( jmp) 




clopp: 


cmp 


m 






jnz 


zret 


# 




inx 


h 






inx 


h 



Set sector 
;Save error count 
;Read a sector 
;Do retry stuff on error 
; Sector size must be 1024 bytes 
;Mask length bits 

;Carry (error) will be set if < 0c0h 
; Fetch retry count 
; Return if no error 
;Bump error count 

;Error, flash the light 



;Save table address 
;Save sector # 
;Get DPH for current drive 
;Load DPH pointer 



;Get # of CP/M sectors/ track 

; Clear carry 

; Divide by two 

; Subtract sector number 

;Save adjusted sector 

.•Discard adjusted sector 

; Restore sector requested 

; Restore address of xlt table 

;hl <- &( translation table) 

•be = offset into table 

?hl <- physical sector 



; Check out number of sides 

;Single sided 

; Retrieve adjusted sector 

;Make sector request positive 

;Make new sector the requested sector 



;Side two bit 

; and sector 



;Save logical drive 

;Save drive # 

j Have the floppies been accessed yet ? 



7 Floppies havn't been accessed 
;Check if 2D controller is installed 

?Must have 17 jumps 



inx 


h 


4fe dcr 


b 


jnz 


clopp 


lxi 


d, fdinit 


• lxi 


h, fdorig+7e2h 


lxi 


b,30 


call 


movbyt 


0k mvi 


a,0ffh 


sta 


dreg 


mvi 


a,clrcmd 


0) sta 


cmdreg 


mvi 


a,l 


sta 


flopf lg 


flopok: call 


flush 


Ida 


fdlog 


0k mov 


c, a 


call 


fdsel 


call 


fdlhome 


m lxi 


h,l 


shld 


truesec 


inx 


h 


shld 


cpmtrk 


xra 


a 


sta 


rdwr 


• call 


fill 


jc 


zrst 


call 


fdstat 


0k sta 


fdldst 


ani 


0ch 


push 


psw 


4| rar 




lxi 


h, xlts 


mov 


e, a 


A mvi 


d,0 


dad 


d 


push 


h 


call 


fdget 


pop 


d 


lxi 


b,2 


0k call 


movbyt 


lxi 


d,8 


dad 


d 


m push 


h 


call 


fdgsid 


Ida 


fdldst 


0k ani 


dblsid 


mov 


m,a 


lxi 


d,dpbl28s 


• jz 


sideok 


lxi 


d,dpbl28d 


sideok: xchg 




# pop 


d 


pop 


psw 


ral 




# ral 




mov 


c, a 


mvi 


b,0 


£ dad 


b 


xchg 




mov 


m,e 


0k inx 


h 


mov 


m,d 


lxi 


h,15 


dfc dad 


d 


mov 


c,m 



; Initialization sequence 

;Load address 

;Byte count 

;Load controller RAM 

; Start 1791 

;1791 reset 

;Set 2D initialized flag 



; Flush buffer since we are using it 
; Select new drive 



; Recalibrate the drive 

; Select sector 1 of track 2 



;Make sure we are doing a read 

;Fill in buffer with sector 

;Test for error return 

;Get status on current drive 

;Save drive status 

;Mask in sector size bits 

;Used to select a DPB 

; Table of XLT addresses 



;Save pointer to proper XLT 
;Get pointer to proper DPH 

;Copy XLT pointer into DPH 

;Offset to DPB pointer in DPH 
;HL <- &DPH.DPB 

;Get pointer to side flag table entry 

;Get drive status 

; Check double sided bit 

;Save sides flag 

;Base for single sided DPB's 

;Base of double sided DPB's 

;(HL) -> DPB base, (DE) -> &DPH.DPB 
;Offset to correct DPB 

;Make 0, 10, 20, 30 

;Make offset 

;(hl) is now a DPB pointer 

;Put proper DPB address in DPH. DPB 



;Offset to DPB.SIZ 

; Fetch sector size code 



fdget: 


Ida 


fdlog 




lxi 


d,dphfd0 




jrap 


retdph 


£dsel2: 


sta 


fdlog 




mov 


c,a 




jmp 


fdsel 


fdlhome 


:mvi 


c,0 




call 


fdside 




jmp 


fdhome 


fdssec: 


push 


b 




mov 


a,b 




rlc 






ani 


1 




mov 


c, a 




call 


fdside 




pop 


b 




jmp 


fdsec 


fdgsid: 


lxi 


h, fdlsid 




Ida 


fdlog 




push 


d 




mov 


e,a 




mvi 


d,0 




dad 


d 




pop 


d 




mov 


a,m 




ora 


a 




ret 




fdinit: 


dw 







dw 


1800h 




dw 







db 







db 







db 


07eh 




db 







db 


8 




db 







db 


9 




db 


0ffh 




db 


9 




db 


0ffh 




db 


9 




db 


0ffh 




db 


9 




db 


0ffh 




db 


9 




db 







db 


1 




db 







db 







db 







db 







db 







dw 





fdlog: 


db 





fdldst: 


db 





fdlsid: 


rept 


maxfd 




db 


0ffh 




endm 





; Return proper DPH 



; Select side 

;Do actual home 

; Save sector number 
; Check side select bit 
;Move high bit to bit zero 

;Call select side = side A, 1 = Side B 

;Side flag table 
; Drive number 

;Make offset 

; Offset to proper entry 

;Set up flags 



Initialization bytes loaded onto 2D/B 

Head loaded timeout 

DMA address 

Double sided flag 

Read header flag 

Drive select constant 

Drive number 

Current disk 

Head loaded flag 

Drive parameters 

Drive track address 

Drive 1 parameters 

Drive 1 track address 

Drive 2 parameters 

Drive 2 track address 

Drive 3 parameters 

Drive 3 track address 

Current parameters 

Side desired 

Sector desired 

Track desired 

Header image, track 

Sector 

Side 

Sector 

CRC 



; Floppy drive status byte 



; Double sided flag = single, 1 = double 



end if 
if 



(maxfd ne 0) or (maxdra ne 0) 



***************************************************************** 

* * 

* Xlts is a table of address that point to each of the xlt * 

* tables for each sector size. * 

* * 

***************************************************************** 



xlts: 



dw 


xltl28 


dw 


xlt256 


dw 


xlt512 


dw 


xltl24 



;Xlt for 128 byte sectors 

;Xlt for 256 byte sectors 

;Xlt for 512 byte sectors 

;Xlt for 1024 byte sectors 



* Xlt tables (sector skew tables) for CP/M 2.0. These tables * 

* define the sector translation that occurs when mapping CP/M * 

* sectors to physical sectors on the disk. There is one skew * 

* table for each of the possible sector sizes. Currently the * 

* tables are located on track sectors 6 and 8. They are * 

* loaded into memory in the Cbios ram by the cold boot routine . * 

* * 

***************************************************************** 



Xltl28: 



xlt256; 



db 
db 
db 
db 
db 
db 
db 

db 
db 

db 
db 
db 
db 
db 
db 
db 
db 



xlt512: db 
db 
db 
db 
db 
db 
db 
db 
db 



xltl24: 



db 
db 
db 
db 
db 
db 
db 
db 
db 





1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 



1,2,19,20,37,38 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,48 

13,14,31,32,49,50 

15,16,33,34,51,52 

17,18,35,36 



1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45:, 46, 47, 48 



1,2,3,4,5,6,7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 



***************************************************************** 

* * 

* Each of the following tables describes a diskette with the * 

* specified characteristics. * 

* * 

***************************************************************** 

***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and single sided. * 

* * 

***************************************************************** 



dpbl28s:dw 


26 


db 


3 


db 


7 


db 





dw 


242 


dw 


63 


db 


0c0h 


db 





dw 


16 


dw 


2 


db 


1 



;CP/M sectors/ track 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 

;128 byte sectors 



************************************************************** 

* * 

* 
* 

* * 
***************************************************************** 



* The following DPB defines a diskette for 256 byte sectors, 

* double density, and single sided. 



dpb256s :dw 


52 


db 


4 


db 


15 


db 


1 


dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


2 



;CP/M sectors/track 

;BSH 

;BLM 

;EXM 

; DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 

;256 byte sectors 



***************************************************************** 
* * 

* 

* * 

***************************************************************** 



The following DPB defines a diskette as 512 byte sectors, 
* double density, and single sided. 



12s:dw 


60 


db 


4 


db 


15 


db 





dw 


280 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


3 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

512 byte sectors 



***************************************************************** 

* * 



* The following DPB defines a diskette as 1024 byte sectors, 

* double density, and single sided. 



* 

* * 

***************************************************************** 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

1024 byte sectors 

***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and double sided. * 

* * 
***************************************************************** 



dpl024s:dw 


64 


db 


4 


db 


15 


db 





dw 


299 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


4 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

128 byte sectors 

***************************************************************** 

* * 

* The following DPB defines a diskette as 256 byte sectors, * 

* double density, and double sided. * 

* * 

***************************************************************** 



dpbl28d:dw 


52 


db 


4 


db 


15 


db 


1 


dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


1 



dpb25€ 


>d:dw 


104 




db 


4 




db 


15 




db 







dw 


486 




dw 


255 




db 


0f0h 




db 







dw 


64 




dw 


2 




db 


2 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

256 byte sectors 



***************************************************************** 
* * 

* 
* 

* * 

***************************************************************** 



* The following DPB defines a diskette as 512 byte sectors, 

* double density, and double sided. 



dpb512d:dw 


120 


db 


4 


db 


15 


db 






;CP/M sectors/ track 

;BSH 
; BLM 
;EXM 



;DSM 
;DRM 
;AL0 
;AL1 
;CKS 
;OFF 
;512 byte sectors 

***************************************************************** 

* * 

* The following DPB defines a diskette as 1024 byte sectors, * 

* double density, and double sided. * 

* * 

************************************************************ 



dw 


561 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


3 



dpl024d:dw 


128 


db 


4 


db 


15 


db 





dw 


599 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


4 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

1024 byte sectors 



endif 

***************************************************************** 

* * 

* The following equates relate the Morrow Designs DJDMA * 

* controller. * 

* * 
***************************************************************** 





if 


dmchan 


equ 


dmkick 


equ 


rdsect 


equ 


wrsect 


equ 


gstat 


equ 


dmsdma 


equ 


intrqc 


equ 


drahaltc 


equ 


bracha 


equ 


setcha 


equ 


setcrc 


equ 


rdtrck 


equ 


wrtrck 


equ 


serout 


equ 


senabl 


equ 


trksiz 


equ 


setlog 


equ 


readm 


equ 


writem 


equ 


dmf stp 


equ 


dmfset 


equ 


n$dubl 


equ 


n$2side 


equ 


serin 


equ 



(maxdm ne ) or (raaxmf ne 0) 

50h ; Default channel address 

0efh ;Kick I/O port address 



20h 

21h 

22h 

23h 

24h 

25h 

26h 

27h 

28h 

29h 

2ah 

2bh 

2ch 

2dh 

2eh 

0a0h 

0alh 

3*341/10 
15*341/10 

80h 
40h 

03eh 



Read sector command 

Write a sector command 

Get drive status 

Set DMA address 

Set Interrupt request 

Halt command 

Channel branch 

Set channel address 

Set CRC retry count 

Read track command 

Write track command 

Serial ouput through bit banger serial port 

Enable serial input 

Set number of tracks 

Set logical drives 

Read from controller memory 

Write to controller memory 

;Fast stepping rate constant is 3 ms * 34.1 
;Fast settling rate constant is 15 ms * 34.1 

; Double density 
;2 sided drive 

;Address of serial input data, (status - 1) 



************************************************************* 

* * 

* Device Specification Table for the Disk Jockey DMA floppy * 

* * 

***************************************************************** 



if 


max dm ne Q 


dmdst: db 


maxdm 


dw 


dmwarm 


dw 


dmtran 


dw 


dmldrv 


dw 


dmselr 


dw 


dmhome 


dw 


dmseek 


dw 


dmssec 


dw 


dmdma 


dw 


dmread 


dw 


dmwrite 


dw 


nob ad 


dmtrck equ 


22*128 


drawarm: call 


dmselr 


lxi 


h,dmchan 


ravi 


m,bracha 


inx 


h 


mvi 


m, ( low dmwchn) 


inx 


h 


mvi 


m, (high dmwchn) 


inx 


h 


mvi 


m,0 


dmwbad: lxi 


h,dmwend-l 


call 


docmd 


Ida 


dmwst 


ani 


40h 


jz 


dmwbad 


lxi 


b,300h 


lxi 


d,buffer 


lxi 


h,ccp+1300h 


call 


movbyt 


xra 


a 


ret 




dmwchn : db 


dmsdma 


dw 


ccp-512 


db 





db 


rdtrck 


db 





db 





db 





dw 


dmwsec 


db 





dmwst: db 





db 


dmsdma 


dw 


ccp+dmtrck 


db 





db 


rdtrck 


db 


1 


db 





db 





dw 


dmwsec+26 


db 


.0 


db 





db 


dmsdma 


dw 


buffer 


db 






; Number of logical drives 

;Warm boot 

; Sector translation 

; Select drive 1 

;Select drive 2 

;Home drive 

;Seek to specified track 

;Set sector 

;Set DMA address 

;Read a sector 

;Write a sector 

;No bad sector map 

; Amount of code on track 

; Select drive 
;Set up branch 



;Low address byte 
;High address byte 



; Pointer to end of command structure 

;Read in tracks 

;Get track read status 

Loop on 'terrible' errors like no disk 
3/4 K bytes of sector 3 needs to be moved 
Sector 3 is in our buffer 

and this is where we want it to go. . . 



;Set track DMA address 

; First track DMA address - boot loader 

;Read track command 

; Track 

;Side 

; Drive 

; Sector load/ status map 

; Track read status 

; DMA address for- track i 



; Track 1 

;Side 

; Drive 

;Map is loaded right after track status map 

; Track read status 

; Sector 3 gets loaded in system buffer 





■ar — 


rdsect 




db 


1 




db 


3 




db 





tk dmwend: 


db 







dw 





dmwsec: 


dw 


0ffffh, 




dw 


0, 0, 0, 




dw 


0, 0fffi 


dmselr: 


sta 


dm log 




mvi 


b,0 




jrap 


dmsel2 


dmtran: 


inx 


b 




push 


d 




push 


b 




call 


dmget 




lxi 


a, 10 




dad 


d 




raov 


a,m 




inx 


h 




raov 


h,m 




raov 


l,a 




raov 


a,m 




ora 


a 




rar 






sub 


c 




push 


psw 




jm 


dmside2 


Q dmsidea 


:pop 


psw 




pop 


b 




pop 


d 


g| dmsidel 


: xchg 






dad 


b 




raov 


l,m 




mvi 


h,0 




ret 




d dmside2 


:call 


drastat 




ani 


20h 




jz 


dmsidea 




pop 


psw 




pop 


b 




cma 






inr 


a 




mov 


c,a 




pop 


d 




call 


dmsidel 




mvi 


a,80h 




ora 


h 




mov 


h, a 




ret 




A dmldrv: 


sta 


dm log 




call 


dminit 




jc 


zret 




lxi 


h,l 




shld 


truesec 




inx 


h 




shld 


cpmtrk 




xra 


a 




sta 


rdwr 




call 


fill 




ic 


zret 



; Track 1 

;Side 0, sector 3 

; Drive 

;Read status 

;Room for the halt 

ifffh ;Do not load boot loader 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ;22 sectors to be loaded 

0ffffh, 0ffffh ;First 2 sectors on track 2 



;8 inch logical drives start at zero 



;Save table address 
; Save sector # 



;Get # of CP/M sectors/track 
;Clear cary 
; Divide by two 

;Save adjusted sector 

;Discard adjusted sector 
; Restore sector requested 
;Restor address of xlt table 
;hl <- &( translation table) 
;bc = offset into table 
;hl <- physical sector 



; Retrieve adjusted sector 

;Make sector request positive 

;Make new sector the requested sector 



;Side two bit 

; and sector 



;Test for a drive 

; Select sector 1 of track 2 

;Make sure we are doing a read 

; Flush buffer and refill 
rTest for error return 



dmsok : 



dmget; 



call 


dmstat 


ani 


0ch 


push 


psw 


rar 




lxi 


h, xlts 


raov 


e,a 


mvi 


d,0 


dad 


d 


push 


h 


call 


dmget 


pop 


d 


lxi 


b,2 


call 


movbyt 


lxi 


d,8 


dad 


d 


push 


h 


call 


dmstat 


ani 


20h 


lxi 


d,dpbl28s 


jz 


dmsok 


call 


sethigh 


lxi 


d,dpbl28d 


xchg 




pop 


d 


pop 


psw 


ral 




ral 




mov 


c, a 


mvi 


b,0 


dad 


b 


xchg 




mov 


m, e 


inx 


h 


mov 


m,d 


lxi 


h,15 


dad 


d 


mov 


c,m 


Ida 


dmlog 


lxi 


d , dphdm0 


jmp 


retdph 



;Get status on current drive 
;Mask in sector size bits 
;Used to select a DPB 

; Table of XLT addresses 



;Save pointer to proper XLT 



; Number of bytes to move 
;Move the address of XLT 
; Offset to DPB pointer 

;HL <- &DPH.DPB 



; Check double sided bit 
;Base for single sided DPB's 

;Set controller to know about fast steping 
;Base of double sided DPB's 
;HL <- DBP base, DE <- &DPH.DPB 
; Restore DE (pointer into DPH) 
; Offset to correct DPB 



;Put DPB address in DPH 



The current drive is double sided. Thus is it safe to set the 
stepping rate to 3 ms with 15 ms settling. 



sethigh: lhld 


dmlog 


mvi 


h,0 


dad 


h 


mov 


d,h 


mov 


e,l 


dad 


h 


dad 


h 


dad 


d 


lxi 


d,dparam+l 


dad 


d 


mvi 


m,0 


inx 


h 


mvi 


m,(low dmfstp) 


inx 


h 


mvi 


m,(high dmfstp) 


lxi 


d,5 


dad 


d 


mvi 


m, (low dmf set) 


inx 


h 



;Get the current drive number 

; Drive number is a byte 

;Ten bytes per parameter table entry 



; Parameter table address 

;Skip the track size byte 

; Force reparamitizat ion of this drive 

; Offset to the Stepping rate constant 

;Fast stepping rate constant 



;Skip over the reserved fields 
;Fast settling rate constant 



mvi m, (high dmfset) 

call dmparra 

ret 



;Set drive parameters for the SA850 



endif 

***************************************************************** 

* * 

* Drive specification table for DJDMA 5 1/4 inch drives * 

* * 
***************************************************************** 



if 


maxmf ne 


mfdst: db 


maxmf 


dw 


mfwarm 


dw 


mftran 


dw 


rafldrv 


dw 


mfsel2 


dw 


drahome 


dw 


mfseek 


dw 


mfssec 


dw 


dmdma 


dw 


draread 


dw 


dmwrite 


dw 


nobad 



mftrck equ 



9*512 



mfwarm: 


call 


mf sel2 




lxi 


h.dmchan 




mvi 


m,bracha 




inx 


h 




mvi 


m, ( low mfwt 




inx 


h 




mvi 


m, (high mfi 




inx 


h 




mvi 


m,0 


mfwfal: 


lxi 


h,mfwend-l 




call 


docmd 




Ida 


mfwst 




ahi 


' 40h ' "• 




jz 


mfwfal 




._„. 


a 




ret 




mfwchn: 


db 


dmsdma 




dw ^ 


ccp-512 




db 







db 


rdtrck 




db 







db 







db 







dw 


mfwsec 




db 





mfwst 


db 







db 


dmsdma 




dw 


ccp+mftrck 




db 







db 


rdtrck 




db 


1 




db 







db 







dw 


mfwsec+10 




db 





mfwend : 


db 







dw 






.•Number of logical drives 

;Warm boot 

;Sector translation 

; Select drive 1 

;Select drive 2 

;Home drive 

;Seek to specified track 

; Set sector 

;Set DMA address 

;Read a sector 

;Write a sector 

;No bad sector map 

; Amount of code on track 

; Select drive 
; Set up branch 



;Low address byte 



; Pointer to end of command structure 

;Read in tracks 

; Check out drive status 

;Test for ok 

;Failed, loop 

; Return no error 



;Set track DMA address 

; First track DMA* address - boot loader 

;Read track command * 

; Track 

;Side 

; Drive 

; Sector load/ status map 

; Track read status 

;DMA address for track 1 



; Track 1 

;Side 

; Drive 

;Map is loaded right after track status map 

; Track read status 
; Room for the halt 



mfwsec : 


dw 


0ffh, 0, 0, 




dw 


0, 0ffffh, 


mfssec: 


dcr 


c 




Ida 


dblflg 




ora 


a 




jz 


dmssec 




mvi 


b,80h 




jmp 


dmssec 


dblflg: 


db 





mf seek: 


xra 


a 




sta 


dblflg 




Ida 


mfpcon 




ani 


n$2side 




jz 


dmseek 




mov 


a, c 




sbi 


35 




jc 


dmseek 




mov 


d, a 




mvi 


a, 34 




sub 


d 




mov 


c, a 




mvi 


a,0ffh 




sta 


dblflg 




jmp 


dmseek 



0, ;Do not load boot loader 
0ffffh, 0ffffh, 0ffffh ; first two sectors loaded 

;Minnie floppy sectors start at zero 
;Get double sided flags 

;Nope, single sided 

;Set high, bit for double sided select 



; Clear double sided select 



;Only single sided 

;Move selected track in (a) 

; Subtract by track by number of tracks 

;Less than track 35 

; Save adjusted track number 

;Adjust to count tracks back out 
;Resave new track number 

;Set double sided flag 



mfsel2: sta 



mf log 



mov 


c,a 


mvi 


b,0 


lxi 


h,mfscon 


dad 


b 


mov 


a,m 


sta 


mfpcon 


mov 


a, c 


mvi 


b,4 


jmp 


dmsel2 


mftran: Ida 


mfpcon 


ani 


n$dubl 


lxi 


h,mfxltd 


jnz 


mftdubl 


lxi 


h,mfxlts 


mftdubl :dad 


b 


mov 


l,m 


mvi 


h,0 


ret 




mfldrv: sta 


mflog 


call 


dminit 


jc 


zret 


Ida 


mflog 


mov 


c,a 


mvi 


b,0 


lxi 


h,mfscon 


dad 


b 


mvi 


a,n$dubl 


mov 


m,a 



;Get proper physical configuration byte 



;Shhh, pretend that nothing happened 
;5 1/4 inch drives start at drive 4 



; Point to double sided sector translation table 
; Single density sector translation 

;Add offset sector number to table 
;Pick up sector number from table 
;MSB of sector number e'qual 



;Test for a controller 



;Get proper physical configuration byte 



sta 



mfpcon 



mfl9: 



mfl2: 



mfl3: 



lxi 


h,l 


shld 


truesec 


dcx 


h 


shld 


cpmtrk 


xra 


a 


sta 


rdwr 


call 


fill 


jc 


zret 


Ida 


buf fer+5ch 


push 


psw 


lxi 


h,l 


shld 


cpmtrk 


call 


fill 


DC 


zret 


pop 


psw 


ora 


a 


jnz 


mfl9 


mvi 


a,90h 


call 


dmstat 


ani 


80h 


jnz 


mfl9 


mvi 


a,10h 



mov 



c, a 



lxi 


h,mfs 


mov 


a,m 


ora 


a 


jz 


zret 


cmp 


c 


jz 


mfl3 


inx 


h 


inx 


h 


inx 


h 


inx 


h 


jmp 


mfl2 


inx 


h 


mov 


a,m 


sta 


mfpcon 


mov 


e, a 


push 


h 


Ida 


mf log 


mov 


c,a 


mvi 


b,0 


lxi 


h,mfscon 


dad 


b 


mov 


m, e 


pop 


h 


inx 


h 


mov 


a,m 


inx 


h 


mov 


h,m 


mov 


l,a 


push 


h 


call 


mfgdph 


lxi 


d, 10 


dad 


d 


pop 


d 



;Select sector 1 of track 



;Make sure we are doing a read 

;Flush buffer and refill 

•Test for error return 

;Get diskette configuration byte 

;Save configuration byte 

;Load track 1 sector 1 

;This is to fix bug with DJDMA firmware on 

; returning single density status on track 



;Non zero 

.•Double density default configuration 

;If zero then determine sector size 

; Check density bit 

;Its double density 

; Single density default configuration byte 

;Move configuration byte into (c) 

; Address of configuration table -> (hi) 

;Get an entry 

; Check for end of the table 

;Yes, select error 

; Check if entry matches selected drive 

;Skip onfiguration byte 
;Skip drive type 
;Skip DPB address 



;Pick up drive type 



;Get proper physical configuration byte 



;DPB address -> (hi) 

;Save DPB address 

;Get DPH 

;Offset to DPB address in DPH 





mov 


m,e 




inx 


h 




mov 


m,d 




call 


mfgdph 




push 


h 




call 


dmstat 




pop 


h 




ani 


80h 




mvi 


c, 3 




rnz 






mvi 


c,2 




ret 




mfgdph 


Ida 


mflog 




lxi 


d,dphmf0 




jmp 


retdph 


mf peon : 


db 





mflog: 


db 





mf scon: 


db 


0, 0, 0, 


mf s : 


db 


10h 




db 







dw 


dpbmf0 




db 


90h 




db 


n$dubl 




dw 


dpbmf 1 




db 


0b0h 




db 


n$dubl 




dw 


dpbmf 2 




db 


0f0h 




db 


n$dubl+n$2side 




dw 


dpbmf 3 




db 


0e5h 




db 


n$dubl 




dw 


dpbmf 1 




db 


0a0h 




db 


n$dubl 




dw 


dpbmf 2 




db 


0d0h 




db 


n$dubl+n$2side 




dw 


dpbmf 3 



; Store DPB address in DPH 



;Get status 

; Check density bit 
;512 byte sectors 

;256 byte sectors 



db 







; Physical configuration byte 



; Saved physical configuration bytes 

; North Star CP/M 1.4 

; Single density, 35 tracks, single sided 

;1K groups 

;North Star CP/M 1.4 

;Double density, 35 tracks, single sided 

;1K groups 

; North Star CP/M 2.x 

; Double density, 35 tracks, single sided 

;2K groups 

; North Star CP/M 2.x 

; Double density, 35 tracks, double sided 

;2K groups 

; North Star CP/M 1.4 

.•Double density, 35 tracks, single sided 

; IK groups 

?North Star CP/M 2.x (fake 40 track) 
;Double density, 35 tracks, single sided 
;2K groups 

; North Star CP/M 2.x (fake 40 track) 
;Double density, 35 tracks, double sided 
;2K groups 

;End of configuration table 



mfxltd 


db 


1, 2, 3, 4 




db 


21,22,23,24 




db 


5, 6, 7, 8 




db 


25,26,27,28 




db 


9,10,11,12 




db 


29,30,31,32 




db 


13,14,15,16 




db 


33,34,35,36 




db 


17,18,19,20 




db 


37,38,39,40 


mfxlts 


db 


1, 2 




db 


3, 4 




db 


5, 6 



db 


7, g 


db 


9,10 


db 


11,12 


db 


13,14 


db 


15,16 


db 


17,18 


db 


19,20 


end if 





***************************************************************** 

* * 

* 
* 

***************************************************************** 



* Common routines for the DJDMA with 8 and 5 1/4 inch drives 
* 



dmsel2: 


mov 


c,a 




lxi 


h,dmchan 




mvi 


m, setlog 




inx 


h 




mov 


m,b 




push 


b 




call 


docmd 




pop 


b 




jmp 


dmsel 


dmssec: 


push 


b 




mov 


a,b 




rlc 






ani 


1 




mov 


c,a 




call 


dm side 




pop 


b 




jmp 


dmsec 


dmdma 


lxi 


h , dmchan 




mvi 


m,dmsdma 




inx 


h 




mov 


m,c 




inx 


h 




mov 


m,b 


docmd 


xra 


a 




inx 


h 




mov 


m,a 


docmd2 


inx 


h 




mvi 


m,dmhaltc 




inx 


h 




mov 


m,a 




out 


dmkick 


tests 


ora 


m 




jz 


tests 




ret 




dminit: 


lxi 


h, dmchan 




mvi 


m,dmhaltc 




inx 


h 




mvi 


m,0 




out 


dmkick 




lxi 


d,0 


dminwt 


mov 


a,m 




ora 


a 




jnz 


dmiok 




dcx 


d 




mov 


a,d 




ora 


e 




jnz 


dminwt 



;Move drive into (c) 
;Set logical drives 
;Drive in (b) 



;Save sector number 



; Default channel address 
;Set DMA address 

;Low byte first 

;High byte next 



;See if controller will halt 



; Start controller 

;Set up timeout counter 



; Controller has responded 
; Bump timeout counter 



dmiok 



stc 




ret 




push 


h 


call 


dmparm 


pop 


h 


dcx 


h 


mvi 


m, setcrc 


inx 


h 


mvx 


m, 1 


xra 


a 


jrap 


docrad2 



;Set error flag 



;Set drive parameters 



;Back to start of command 

;Set CRC error retry count to one 



; Do command 



Set floppy drive parameters 

This routine reads the dparam table and if the a drive has not 
previously been calibrated then that drives track count, 
stepping rate, and head settling time are loaded. 



dmparm : 


mvi 


a, 8 




lxi 


d,1340h 




lxi 


h,dparam+l 


dmstr0 : 


push 


psw 




mov 


a,m 




ora 


a 




jnz 


dmstrl 




push 


h 




push 


d 




dcr 


m 




dcx 


h 




shld 


dmntrk 




inx 


h 




inx 


h 




shld 


dmspar 




xchg 






shld 


dmloc0 




inx 


h 




inx 


h 




inx 


h 




inx 


h 




shld 


dmlocl 




lxi 


h , dmwcon 




lxi 


d,17 




call 


dmdoit 




pop 


d 




pop 


h 


dmstrl : 


lxi 


b,10 




dad 


b 




xchg 






lxi 


b,16 




dad 


b 




xchg 






pop 


psw 




dcr 


a 




jnz 


dmstr0 




ret 




dmhome 


xra 


a 




mov 


c,a 



; Eight drives 

;Start with drive 0's table 

; Drive parameter table 

;Save the drive count 

;Load flags 

;Does the drive need to be calibrated? 

;No, do not fiddle around 

;Save the parameter table pointer 

;Save the controllers table pointer 

;Set to calibrated mode (0ffh) 

;Back up to the track size byte 

;Set the number of tracks pointer 



;Set the stepping constants pointer 
;Set the local parameter table pointer 

; Offset to the stepping parameters 



;Write the drive constants out 
;Halt status offset 

; Retrieve the table pointers 



;Bump parameter table pointer 



;Bump controller tables pointer 



; Retrieve drive count 

;Bump count 

;Set up next drive 



;Put a zero into (c) for track zero 



dmseek 


mov 


a, c 




sta 


lltrk 




ret 




dmsec 


Ida 


llss 




ani 


80h 


stores 


ora 


c 




sta 


llss 




ret 




dmside: 


mov 


a,c 




am 


1 




rrc 






mov 


c, a 




Ida 


llss 




ani 


7fh 




]iap 


stores 


dmsel : 


mov 


a,c 




sta 


lldrv 


dmden: 


ret 





; Enter with track in Cc) 
;Save for use later 



;Load sector 

;Save side select bit 



;Move side bit into (a) 

;Move around to bit 7 
; Re save in (c) 

;Mask out old side select bit 



;Move drive into (a) 
; Double density only 



Return status in the (a) register in the form: 

76553210 



Density + | 

Side select + 

Double sided 

5 1/4 

Sector size MSB 

Sector size LSB 

Drive select MSB 

Drive select LSB 



I 1 I 



-+ 



dmstat 



lxi 


h , dmchan 


mvi 


m,gstat 


xnx 


h 


Ida 


lldrv 


mov 


m, a 


inx 


h 


xnx 


h 


xnx 


h 


call 


docmd 


Ida 


llss 


ani 


80h 


rrc 




mov 


c,a 


lxi 


h,dmchan+l 


mov 


a,m 


ora 


C ' 


anx 


4 


rlC ;-' 


■ . .■ 


rlc 




ora 


m 


ora 


c 


mov 


c,a 


xnx 


h 


mvi 


a, 10h 


ana 


m 


rlc 




rlc 




rlc 




ora 


c 



;Set up read status 

;Get last selected drive 
; Store drive in command 
;Skip over returned status 



; Issue command 

;Get side bit of last operation 

;Move to bit 7 

; Point to drive 
;Load drive 

;Mask upper drive select bit for 5 1/4 

;Move to bit 4 

;Put together with lower drive bits 



;Double density bit 

20h 
40h 
80h for density bit 





mov 


c, a 




inx 


h 




mvi 


a, 3 




ana 


m 




rlc 






rlc 






ora 


c 




mov 


c,a 




inx 


h 




mvi 


a, 4 




ana 


m 




rlc 






rlc 






rlc 






ora 


c 




ret 




dmwrite 


mvi 


a,wrsect 




db 


01 


draread 


mvi 


a,rdsect 




Ixi 


h,dmchan 




lxi 


d,lltrk-l 




mvi 


b,4 


cload 


mov 


m, a 




inx 


h 




inx 


d 




ldax 


d 




dcr 


b 




jnz 


cload 




dcx 


h 




call 


docmd 




Ida 


dmchan+4 




cpi 


80h 




cmc 






ret 





; Sector length mask 

; And in 

•Move to bits 2 & 3 



;Mask for double sided bit 

;8 

;10 

;20 



;Ugh. 



Execute a DJDMA command, no command status is returned 

Entry: 

DE = offset to the halt status 

HL = pointer to the start of the command 



Returns : 



ret 



nothing 



dmdoit : 


mvi 


a,bracha 




sta 


dmchan 




shld 


dmchan+1 




xra 


'"a ' ' 




sta 


dmchan+3 




dad 


d 




mov 


m> a 




out 


dmkick 


dmwait: 


ora 


m 




jz 


dmwait 



dmwcon : 


db 


writem 


dmntrk : 


dw 







db 






; Branch channel command 

;Load command vector 
;Clear extended address 



; Offset to the halt status 

; CI ear the halt status indicator 

; Start the controller 

;Wait for the operation complete status 



; Write track size 

; Number of tracks + desync 

;X-address 



dmloc0 : 


dw 
dw 


2 




dmspar : 
dmlocl : 


db 
dw 
db 
dw 
dw 


writeni 





8 






db 
db 


dmhaltc 




;Two bytes 

; Local controller address 

; Write stepping rate data 

; Pointer to the stepping parameters 



.•Controller halt 
; Status 



Driver variables 



11 trie 


db 





llss 


db 


1 


lldrv 


db 





dmlog 


db 






endif 

***************************************************************** 

* * 

* The follwing equates are for the HDDMA hard disk controller * 

* * 

***************************************************************** 





if 


maxmw ne 







if 


st506 




cyl 


equ 


153 




heads 


equ 


4 




precomp 


equ 


64 




lowcurr 


equ 


128 




stepdly 


equ 


30 




steprcl 


equ 


30 




headdly 


equ 
endif 









if 


st412 




cyl 


equ 


306 




heads 


equ 


4 




precomp 


equ 


128 




lowcurr 


equ 


128 




stepdly 


equ 







steprcl 


equ 


30 




headdly 


equ 









endif 








if 


cm5619 




cyl 


equ 


306 




heads 


equ 


6 




precomp 


equ 


128 




lowcurr 


equ 


128 




stepdly 


equ 


2 




steprcl 


equ 


30 




headdly 


equ 
endif 








; HDDMA controller present ? 

Specifications for a Seagate Technology 506 

; Number of cylinders 

.•Number of heads per cylinder 

.•Cylinder to start write precomensation 

; Cylinder to start low current 

;Step delay (0-12.7 milliseconds) 

.•Recalibrate step delay 

;Settle delay (0-25.5 milliseconds) 



.•Specifications for a Seagate ST412 



; Specifications for an CMI 5619 



sectsiz equ 



Sector size code (must be 7 for this Chios) 

= 128 byte sectors 

1 = 256 byte sectors 
3 = 512 byte sectors 

7 = 1024 byte sectors (default) 
f = 2048 byte sectors 



dmaread 


equ 





dmawrit 


equ 


1 


dmarhed 


equ 


2 


dmawhed 


equ 


3 


dmalcon 


equ 


4 


dmassta 


equ 


5 


dmanoop 


equ 


6 


reset 


equ 


54h 


attn 


equ 


55h 


chan 


equ 


50h 


stepout 


equ 


10h 


stepin 


equ 





bandl 


equ 


40h 


band2 


equ 


0c0h 


band3 


equ 


80h 


track0 


equ 


1 


wflt 


equ 


2 


dready 


equ 


4 


sekcmp 


equ 


8 



;Define controller commands 

;Read sector 

;Write sector 

;Find a sector 

; Write headers (format a track) 

;Load disk parameters 

; Sense disk drive status 

;Null controller operation 

; Reset controller 

;Send a controller attention 

; Default channel address 

;Step direction out 

;Step direction in 

;No precomp, high current 

;Precomp, high current 

; precomp, low current 

; Track zero status 

; Write fault from drive 

; Drive ready 

;Seek complete 



************************************************************ 

* * 

* Drive Specification Table for the HD DMA hard disk controller * 

* * 

***************************************************************** 



mwdst: db 


maxmw*mwlog 


dw 


mwwarm 


dw 


mwtran 


dw 


mwldrv 


dw 


mwdrv 


dw 


mwhome 


dw 


mwseek 


dw 


mwsec 


dw 


mwdma 


dw 


mwread 


dw 


mwwrite 


if 


heads > 2 


dw 


mwbad 


else 




dw 


nobad 


end if 





Number of logical drives 

Warm boot 

Sector translation 

Select logical drive 1 (First time select) 

Select logical drive 2 (General select) 

Home current selected drive 

Seek to selected track 

Select sector 

Set DMA address 

Read a sector 

Write a sector 

Test if drive is big enough for a bad spot map 

Return bad sector map info 



***************************************************************** 

* * 

* The following are the lowest level drivers for the Morrow * 

* Designs Hard Disk DMA controller. * 

* * 

***************************************************************** 



mwwarm xra 


a 


call 


mwdrv 


call 


mwhome 


lxi 


b,0 


call 


mwseek 


xra 


a 


sta 


mwhead 


sta 


mwsectr 


lxi 


h, buffer 


shld 


dmadma 


call 


mwwread 


re 





; Select drive A 

;Home and reset the drive 

jMake sure we are on track 



; Select head zero 

rSelect sector 1 

;Load sector 1 into buffer 

;Read CCP into buffer 
; Return if error 



lxi 


d,buffer+200h 


m ixi 


h,ccp 


lxi 


b,200h 


call 


movtayt 


lxi 


h,ccp-200h 


push 


h 


xra 


a 


push 


a 


mwwlod pop 


psw 


pop 


h 


tk inr 


a 


sta 


mwsectr 


cpi 


6 


rz 




inr 


h 


inr 


h 


£ inr 


h 


inr 


h 


shld 


dmadma 


4| push 


h 


push 


psw 


call 


mwwread 


<m jnc 


mwwlod 


ret 




A mwwread mvi 


c, retries 


mwwerr push 


b 


call 


mwread 


# pop 


b 


rnc 




dcr 


c 


# jnz 


mwwerr 


stc 




ret 




mwldrv sta 


mwcurl 


call 


mwreset 


• jc 


zret 


Ida 


mwcurl 


call 


mwdrv 


jc 


zret 


call 


mwstat 


ani 


dready 


jnz 


zret 


call 


mwhome 


lxi 


d , dphmw0 


Ida 


mwcurl 


mov 


l,a 


g| mvi 


h,0 


dad 


h 


dad 


h 


A dad 


h 


dad 


h 


dad 


d 


A mvi 


c,4 


ret 




g| mwdrv sta 


mwcurl 


call 


mwdlog 


mov 


a / c 


A sta 


mwdrive 


mwsel mvi 


a,dmanoop 



;Move 200h bytes 

; Initial DMA address 



;Save first sector -1 
; Restore sector 
.•Restore DMA address 



;Past BDOS ? 
;Yes, all done 

;Update DMA address by 1024 bytes 



;Read in a sector 

; Return with error 

; Retry counter 

;Save the retry count 

;Read the sector 



; Update the error count 

;Keep trying if not too many errors 

;Set error flag 



;Save current logical drive 
;Reset controller card 
;Controller failure 



;Select drive 
;Select error 

;Get drive status 

; Check if drive ready 



;Home drive 

; Start of hard disk DPH's 



; (hi) -■ pointer to DPH 

; Return sector size of 1024 



;Save new selected drive 



3mp 



mwprep 



;Execute disk command 



mwdlog : 


mvi 


c,0 


mwllx: 


sui 
re 


mwlog 




inr 


c 




jmp 


mwllx 


mwstat 


mvi 


a, dmassta 




jmp 


mwprep 


mwhome 


call 


mwreset 




lxi 


h,dmargl 




mvi 


m, steprcl 




inx 


h 




mvi 


m,headdly 




call 


rawissue 




call 


mwptr 




mvi 


m,0ffh 




inx 


h 




mvi 


m,0ffh 




lxi 


b,0 




call 


mws eek 




jmp 


mwreset 


£ mwbad : 


lxi 
ret 


h, mwbtab 


^H mwbtab : 


dw 







dw 


19 


mwseek 


call 


mwptr 




mov 


e,m 




inx 


h 




mov 


d,m 




dcx 


h 




mov 


m,c 




inx 


h 




mov 


m,b 




mov 


l,c 




mov 


h,b 




shld 


dmarg0 




mov 


a,d 




inr 


a 




lxi 


h,0ffffh 




jnz 


mwskip0 




mvi 


c,stepout 




jmp 


mwskip 


4| rawskip0 


:mov 


h,b 




mov 


l,c 




call 


mwhlmde 




mvi 


c,stepout 




mov 


a,h 




ani 


80h 




jnz 


mwsout 




mvi 


c,0 




jmp 


mwskip 


mwsout : 


call 


mwneghl 


mwskip: 


shld 


dmastep 




Ida 


mwdrive 




ora 


c 




sta 


dmasel0 




mvi 


a , dmanoop 




call 


mwprep 



;Sense status operation code 
;Execute disk command 

; Reset controller, do a load constants 

;Load arguments 

;Load step delay (slow rate) 

;Head settle delay 

;Do load constants again 

;Get pointer to current cylinder number 

;Fake at cylinder 65535 for max head travel 



;Seek to cylinder 

;Recal slowly 

;Back to fast stepping mode 

; Return pointer to bad sector location 



; Track 

;Head 2, sector 



= (2 * SPT + 0) + 1 



;Get track pointer 
;Get old track number 



; Store new track number 

; Build cylinder word 

;Set command channel cylinder number 



;(hl) = new track, (de) = old track 



; Check hit bit for negitive direction 
;Step in 



;No-operation command for the channel 
; Step to proper track 





lxi 


h,0 




shld 


dmastep 




ret 




mwdma 


raov 


h,b 




raov 


l,c 




shld 


dmadma 




ret 




rawsec 


mov 


a, c 




dcr 


a 




call 


mwdspt 




adi 


mwspt 




sta 


mwsectr 




mov 


a,c 




sta 


mwhead 




ret 




mwdspt 


ravi 


c,0 


gk mwdsptx 


sui 
re 


mwspt 




inr 


c 




jmp 


mwdsptx 


mwreset 


lhld 


chan 




shld 


tempb 




Ida 


chan+2 




sta 


tempb+2 




out 


reset 




lxi 


h,dmachan 




shld 


chan 




xra 


a 




sta 


chan+2 




shld 


40h 




sta 


42h 




lhld 


dmarg0 




push 


h 




lxi 


h,dmasell 




Ida 


mwdrive 




ori 


03ch 




mov 


m, a 




lxi 


d,5 




dad 


d 




mvi 


m, stepdly 




inx 


h 




ravi 


m,headdly 




inx 


h 




mvi 


m, sectsiz 




inx 


h 




mvi 


m,dmalcon 




call 


mwissue 




pop 


h 




shld 


dmarg0 




push 


psw 




lhld 


tempb 




shld 


chan 




Ida 


tempb+2 




sta 


chan+2 




pop 


psw 




ret 




0k mwread 


mvi 


a,dmaread 




jmp 


mwprep 


mwwrite 


mvi 


a,dmawrit 



; Clear step counter 



;Set DMA address 



;Load sector number 

;Range is actaully 0-16 

; Figure out head number -> (c) 

;Make sector number 



;Save head number 



; Clear head counter 

.•Subtract a tracks worth of sectors 

; Return if all done 

;Bump to next head 



;Save the command channel for a while 



;Send reset pulse to controller 
; Address of command channel 
; Default channel address 

;Clear extended address byte 

;Set up a pointer to the command channel 

; Save the track number 

;Load arguments 

;Get the currently selected drive 

; Raise *step and *dir 

;Save in drive select register 

;Offset to dmargl 

;Load step delay 

;Head settle delay 

;Sector size code 

;Load constants command 

;Do load constants 

; Restore the track number 

;Save status 

;Restore memory used for the channel pointer 



;Load disk read command 



;Load disk write command 



mwprep : sta 



dmaop 





mvi 


c, bandl 




lhld 


dmarg0 




lxi 


d,precomp 




call 


mwhlcde 




jc 


mwpreps 




mvi 


c,band2 




lxi 


d, lowcurr 




call 


mwhlcde 




jc 


mwpreps 




mvi 


c,band3 


mwpreps 


Ida 


mwhead 




sta 


dmarg2 




cma 






ani 


7 




rlc 






rlc 






ora 


c 




mov 


c,a 




Ida 


mwdrive 




ora 


c 




sta 


dmasell 




Ida 


mwsectr 




sta 


dmarg3 




if 





rawissue 


call 
rnc 


mwdoit 




push 


psw 




call 


hexout 




call 


dspout 




lxi 


h,dmachan 




mvi 


c, 16 


mwerr : 


push 


b 




push 


h 




mov 


a,m 




call 


hexout 




call 


spout 




pop 


h 




pop 


b ' 




inx 


h 




dcr 


c 




jnz 


mwerr 




mvi 


e, 0ah 




call 


pout 




mvi 


c,0dh 




call 


pout 




pop 


psw 




ret 




dspout : 


call 


spout 


spout : 


mvi 


C, ' ' 




jmp 


pout 


hexout: 


push 

rrc 

rrc 

rrc 

rrc 


psw 




call 


nibout 




pop 


psw 


A nibout: 


ani 


0fh 




adi 


■0' 



;Save command channel op code 



; cylinder > low_current 
;Load head address 

; Negative logic for the controller 
;3 bits of head select 
; Shove over to bits 2-4 

;Add on low current and precomp bits 

;Load drive address 

;Slap in drive bits 

;Save in command channel head select 

;Load sector address 



;Set to 1 for MW error reporter 

;Do desired operation 

;Do nothing if no error 

;Save error info 

;Print status 

; and a space 

;16 bytes of status 



; Print a byte of the status line 



;Bump command channel pointer 



.•Terminate with a CRLF 



; Restore error status 



; Print two spaces 
; Print a space 



;Poor persons number printer 





cpx 


4 9'+l 




jc 


nibok 




adi 


27h 


nibok: 


mov 


c, a 




jmp 


pout 


mwdoit 


equ 
else 


$ 


mwissue 


equ 
endif 


$ 




lxi 


h,dmastat 




mvi 


m, 




out 


attn 




lxi 


d,0 


mwiloop 


mov 


a,m 




ora 


a 




rm 






stc 






rnz 






xthl 






xthl 






xthl 






xthl 






dcx 


d 




mov 


a,d 




ora 


e 




jnz 


mwi loop 




stc 






ret 




mwptr 


Ida 
rlc 


mwdrive 




mov 


e,a 




mvi 


d,0 




lxi 


h,mwtab 




dad 


d 




ret 




rawtran : 


mov 


h,b 




mov 


l.c 




inx 


h 




ret 




mwneghl 


:mov 
cma 


a,h 




mov 


h, a 




mov 


" a, 1 




cma 






mov 


"l,a 




inx 


h 




ret 


v 


mwhlmde 


:xchg 






call 


mwneghl 




xchg 






dad 


d 




ret 




mwhlcde 


:raov 


a,h 




cmp 


d 




rnz 






mov 


a,l 



;Do a disk command, handle timeouts + errors 



;Clear status byte 

; Start the controller 

;Time out counter (65536 retries) 

;Get status 

;Set up CPU flags 

; Return no error (carry reset) 

; Return error status 
;Waste some time 



;Bump timeout counter 



;Loop if still busy 
;Set error flag 



;Get currently select drives track address 



; Offset into track table 





cmp 


e 




ret 




mwtab 


equ 


$ 




rept 


maxmw 




db 


0ffh 




db 


0ffh 




endm 






db 


0ffh 


mwcurl 


db 





mwdrive 


db 


0ffh 


mwhead 


db 





rawsectr 


db 





dmachan 


equ 


$ 


dmasel0 


db 





dmastep 


dw 





dmasell 


db 





dmadma 


dw 







db 





dmarg0 


db 





dmargl 


db 





dmarg2 


db 





dmarg3 


db 





dmaop 


db 





dmastat 


db 





dmalnk 


dw 


dmachan 




db 






.•Collection of track addresses 

; Initialize to (way out on the end of the disk) 



; Current logical drive 
;Currently selected drive 
; Currently selected head 
/•Currently selected sector 

Command channel area 

Drive select 

Relative step counter 

Head select 

DMA address 

Extended address 

First argument 

Second argument 

Third argument 

Fourth argument 

Operation code 

Controller status byte 

Link address to next command channel 

extended address 

end if 

***************************************************************** 

* * 

* Cbios ram locations that don't need initialization. * 

* * 

***************************************************************** 





if 




nostand ne 


unaloc: 


db 







oblock : 


dw 







unadrv: 


db 









end if 





cpmsec : dw 

cpmdrv : db 

cpmtrk : dw 

truesec:dw 

error : db 

bufdrv: db 

buftrk: dw 

bufsec: dw 

alttrk: dw 

altsec: dw 

lastdrv:db 



; Unallocated writting variables 
;Unallocated write in progress flag 
;Last unallocated block number written 
; Drive that the block belongs to 



;CP/M sector # 

;CP/M drive # 
;CP/M track # 
.•Physical sector that contains CP/M sector 

.•Buffer's error status flag 
;Drive that buffer belongs to 
;Track that buffer belongs to 
;Sector that buffer belongs to 

;Alternate track 
;Alterante sector 
;Last selected drive 



***************************************************************** 

* * 

* DPB and DPH area . * 

* * 
****************,***** * * ****************************************** 



if 



maxhd ne 



dphdsk 



ldsk 



ldsk set 
dphdsk set 



set 

rept maxhd 

set 

rept hdlog 

dphgen hd, %dphdsk,dpbhd, %ldsk 

ldsk+1 

dphdsk+1 



,-Generate DPH's for the HDCA hard disks 



endm 
endm 



if 



hdpart ne 



;Use non-standard partitioning 



* hdsectp is the number of 128 byte sectors per cylinder. 
* 

* hdtrks is the total number of data cylinders. Eg. it is 

* the number of cyliders on the drive minus the number of 

* cylinders that are used for the system. If the number of 

* ' system tracks ' is not one then the initial value of 

* 'off should be adjusted accordingly. 
* 

* hdtrks = tracks - 1 



***************************************************************** 



if ml0 ne 
hdsectp equ 336 
hdtrks equ 243 
endif 



; Sectors per track 
; Total data tracks 



if m20 ne 
hdsectp equ 672 
hdtrks equ 243 
endif 

if m26 ne 
hdsectp equ 1024 
hdtrks equ 201 
endif 



ldsk 


set 


tracks 


set 


dsm 


set 


off 


set 




rept 




dpbgen 


off 


set 


ldsk 


set 




endm 



;Use non-standard partitioning 

hdtrks/hdlog ; Number of tracks per partition 
hdsectp/8*tracks/4-l ;Number of groups per partition 

1 

hdlog 

hd, %ldsk, %hdsectp,5, 31, 1, %dsm, 511, 0f fh,0f fh,0, %off , 3 

of f+tracks 

ldsk+1 



else 



;Else use standard DPB ' s 



dpbhd0 



if 


m26 ne 




dw 


1024 


;CP/M sectors/track 


db 


5 


;BSH , 


db 


31 


;BLM 


db 


1 


;EXM 


dw 


2015 


;DSM 


dw 


511 


;DRM 


db 


0ffh 


;AL0 


db 


0ffh 


;AL1 


dw 





;CKS 


dw 


1 


,-OFF 



db 



;SECSIZ 



dpbhdl 



dpbhd2 



dpbhd0 



dpbhdl 



dpbhd0 



dw 


1024 


db 


5 


db 


31 


db 


1 


dw 


2015 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


64 


db 


3 


dw 


1024 


db 


5 


db 


31 


db 


1 


dw 


2047 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


127 


db 


3 


end if 




if 


ml ne 


dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1269 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


3 


dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1230 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


122 


db 


3 


endif 




if 


m2 ne 


dw 


672 


db 


5 


db 


31 


db 


1 


dw 


2036 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 , 


db 


3 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

SECS 



sectors/ track 



IZ 



;CP/M sectors/track 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 

;SECSIZ 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

SECSIZ 

;CP/M sectors/ track 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

jALl 

;CKS 

;OFF 

; SECSIZ 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

SECSIZ 



dpbhdl 



dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



672 

5 

31 

1 

2036 

511 

0ffh 

0ffh 



98 
3 



CP/M sectors/ track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

SECSIZ 



dpbhd2 



dw 

db 

db 

db 

dw 

dw 

db 

db 

dw 

dw 

db 

end if 

endif 

endif 



672 

5 

31 

1 

1028 

511 

0ffh 

0ffh 



195 

3 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

SECSIZ 



;End of HD DPH's and DPB's 



if 



maxmf ne 



dpbgen mf, 0, 20, 3, 7, 0, 04fh, 

dpbgen mf, 1, 40, 3, 7, 0, 0a4h, 

dpbgen mf, 2, 40, 4, 15, 1, 051h, 

dpbgen mf, 3, 40, 4, 15, 1, 0a9h, 



63, 0c0h, 0, 16, 3, 2 

63, 0c0h, 0, 16, 2, 3 

63, 80h, 0, 16, 2, 3 

63, 80h, 0, 16, 2, 3 



dn 



dn 



set 

rept 

dphgen 

set 

endm 

endif 





maxmf 

mf , %dn , dpbmf , %dn 

dn+1 



dn 



dn 



if 

set 

rept 

dphgen 

set 

endm 

endif 



maxfd ne 



maxfd 

fd,%dn,0,0 

dn+1 



dn 



dn 



if 

set 

rept 

dphgen 

set 

endm, 

endif 



maxdm ne 



maxdm 

dm, %dn,0,0 

dn+1 



if 



maxmw ne 



***************************************************************** 

* * 

* mwsectp is the number of 128 byte sectors per cylinder. * 

* mwsectp = 72 * heads * 

* * 

* mwtrks is the total number of data cylinders. * 

* mwtrks = tracks - 1 * 



* * 

***************************************************************** 



if st506 ne 
mwsecpt equ 288 
mwtrks equ 152 
end if 

if st412 ne 
mwsecpt set 288 
mwtrks set 305 
endif 



? Sectors per track 
; Total data tracks 



dphdsk 
ldsk 



ldsk 



if 



cm5619 ne 



mwsecpt set 
mwtrks set 
endif 



432 
305 



set 
rept 
set 
rept 





maxmw 

mwlog 



.-Generate DPH's for the HDDMA hard disks 



dphgen mw, %dphdsk,dpbmw, %ldsk 
dphdsk set dphdsk+1 

ldsk+1 



set 

endm 

endm 

if 



ldsk 


set 


tracks 


set 


dsm 


set 


off 


set 



mwpart ne ; Generate DPB ' s for a HDDMA hard disk 

;Use non-standard partitioning 

mwtrks/mwlog ? Number of tracks per partition 
mwsectp/8*tracks/4-l ; Number of groups per partition 
1 



rept mwlog 

dpbgen mw,%ldsk, %mwsecpt, 5, 31, 1, %dsm, 1023, 0f fh,0ffh,0, %off ,4 



off 


set 


of f+tracks 


ldsk 


set 

endm 


ldsk+1 



else 



off 


set 


1 


trkof f 


set 


8192/(mwsecpt/8 )+l 


blocks 


set 


mwsecpt/8*mwtrks 


psize 


set 


trkof f * (mwsecpt/8 ) 


ldsk 


set 






;Use standard partitioning 



; Initial system track offset 
;The number of tracks in a partition 
;The number of blocks on the drive 
;The number of blocks in a partition 



rept blocks/8192 .-Generate some 8 megabyte DPB ' s 

dpbgen mw, %ldsk, %mwsecpt, 5, 31, 1, 2047, 1023, 0f fh,0f fh,0, %of f ,4 

off set off+trkoff 

blocks set blocks-psize 

ldsk set ldsk+1 

endm 

blocks set blocks/4 

if blocks gt 256 ;If there is any stuff left, then use it 

blocks set blocks-1 

dpbgen mw, %ldsk, %mwsecpt, 5, 31, 1, %blocks, 1023, 0ffh,0f fh,0, %of f ,4 

endif 

endif 

endif 



buffer equ $ 
***************************************************************** 



Signon message output during cold boot. 



* 
* 
* 



* 
**************************************************************** 



prompt? 1 : db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 



80h, clear 

acr, alf, alf 

'Morrow Designs ' 

'0 ' +msize/l0 

'0'+(msize mod 10) 

'K CP/M ' 

cpmrev/10+'0' 
■ ■ 

(cpmrev mod 10)+'0' 

(revnum/10)+'A' -1 
( revnum mod 10)+'0' 
acr, alf 



; Clean buffer and screen 

;CP/M memory size 
;CP/M version number 



Print a message like: 
AB: DJDMA 8", CD: DJDMA 5 1/4", E: HDDMA M5 



msdrv 



set 







msbump 


macro 


ndrives 




if 


dn gt 1 




db 


■ i 
» 




end if 






rept 


ndrives 




db 


msdrv+ "A" 


msdrv 


set 
endm 


msdrv+1 




db 


1 ; ' 




endm 




prhex 


macro 


digit 




prnib 


digit/l0h 




prnib 


digit 




endm 




prnib 


macro 


digit 


temp 


set 


digit and 0fh 




if 


temp < 10 




db 


temp + '0' 




else 






db 


temp - 10 + "A* 




endif 






endm 




dn 


set 


1 




rept 


16 




if 


dn eq hdorder 




msbump 


maxhd*hdlog 




db 


'HDCA ' 




if 


maxhd gt 1 




db 


' ( ' , maxhd+ ' ' , 




endif 






if 


ml0 ne 




if 


ml0m ne 




db 


' Memorex ' 




else 





; Start with drive A: 
; Print a drive name 



; Write a byte in hex 



;Write a digit in hex 



; Generate the drive messages 
;Run off at least 16 drives 
;Generate the HDCA's message 



*) 



db 


Fujitsu' 




end if 






db 


' M10' 




endif 






if 


m20 ne 




db 


'Fujitsu 


M20 ' 


endif 






if 


m26 ne 




db 


' Shugart 


M26' 


endif 






endif 







if dn eq mworder 
msbump maxmw*mwlog 



db 


•HDDMA' 




if 


mwquiet eq 




db 


■ i 




if 


maxmw gt 1 




db 


' ( * , maxmw+ ' ' , 


')' 


endif 






if 


st506 ne 




db 


'M5' 




endif 






if 


st412 ne 




db 


'M10' 




endif 






if 


cm5619 ne 




db 


'M16' 




endif 






endif 






endif 







.•Generate the HDDMA' s message 



if dn eq fdorder 

msbump maxfd 

db 'DJ2D/B @' 

prhex fdorig/100h 

prhex fdorig 

endif 



.•Generate the 2D/B message 



if dn eq dmorder 

msbump maxdm" 

db 'DJDMA 8'" 

endif 

if dn eq mforder 

msbump maxmf 

db 'DJDMA 5 1/4'" 

endif 



; Generate the DJDMA 8 message 



; Generate the DJDMA 5- 1/4 message 



dn 



set 


dn+1 


endm 




db 


acr ,alf 


db 






;End of message 



***************************************************************** 

* * 

* Cboot is the cold boot loader. All of CP/M "has been loaded in * 

* when control is passed here. * 

* * 

*************************************************************** 



cboot: lxi 

xra 

sta 



sp, tpa 

a 
cwf lg 



;Set up stack 

; Clear cold boot flag 



sta 
sta 
sta 



group 

cpmdrv 

cdisk 



; Clear group select byte 
; Select disk A: 



lxi 

shld 

Ida 
sta 

lxi 

stax 

lxi 

lxi 

call 

mvi 

if 
if 

call 
endif 

if 

call 
endif 
else 
lxi 
cboot0 : mov 
inx 
mov 
inx 
mov 
ora 

jz 

push 
lxi 
push 
xchg 
pchl 
cbootl : pop 
jmp 

devset: dw 
dw 
dw 
dw 

cboot2 equ 

endif 

lxi 

call 

jmp 



h,bios+3 
bios+1 

iobyt 
iobyte 

d,badmap 

d 

h,badmap+l 

b,9*badsiz 

movbyt 

m,0ffh 

contyp ne 6 
contyp ne 
ttyset 



lsttyp ne 
lstset 



h, devset 

e,m 

h 

d,m 

h 

a,d 

e 

cboot2 

h 

h, cbootl 

h 



h 
cboot0 



; Patch cold boot to warm code 
; Initialize the IOBYTE 
; Clear out bad map 

;32 map entries 

;End marker 

;Non IOBYTE inits 

;Do not call TTYSET for PROM's 

.•Initialize the terminal 



;Do not call LSTSET for PROM's 
.•Initialize the list device 

;Do IOBYTE inits 

; Device setup routine pointer table 

;Load a routine address 



;Test for the end of the table 



;Save the table pointer 
.•Return address 



; 'CALL' a device setup routine 
; Restore the table pointer 



ttyset, crtset, uclset ;Device setup routine pointers 

ptrset, urlset, ur2set 

ptpset, uplset, up2set 

lptset, ullset, 



h, prompt 

message 

gocpm 



;Prep for sending sighon message 
;Send the prompt 



**************** *** * * * **************************** ** ************* 

* * 

* Console and list device initialization routines follow. * 

* * 
***************************************************************** 



if 



contyp eq 2 



;Multi I/O, Decision I 



************************************ ***************************** 

* * 

* Terminal initilization routine. This routine reads the sense * 

* switch on the WB-14 and sets the speed accordingly. * 



* * 

***************************************************************** 



ttyset i 


call 


selg0 




in 


sensesw 




push 


psw 




call 


selcon 




Pop 


psw 




push 


psw 




call 


tini0 




pop 


psw 




push 


psw 




call 


selrdr 




pop 


psw 




call 


tini0 




ret 




tini0: 


ani 
rlc 
rlc 
rlc 


0e0h 




cpi 


7 




jz 


dfbaud 




lxi 


h,btab 




add 


a 




mov 


e,a 




mvi 


d,0 




dad 


d 




mov 


e,m 




inx 


h 




mov 


d,ra 




jmp 


setit 


dfbaud: 


lhld 
xchg 


defcon 


setit: 


mvi 


a,dlab+wlsl+wls0+stb 




out 


lcr 




mov 


a,d 




out 


dim 




mov 


a, e 




out 


dll 




mvi 


a,wlsl+wls0+stb 




out 


lcr 




xra 


a 




out 


ier 




out 


lsr 




mvi 


a,dtrenb+rtsenb 




out 


mcr 




in 


msr 




in 


lsr 




in 


rbr 




in 


■■ rbr; ,.'■.■< 




ret 




btab: 


dw 


1047 




dw 


384 




dw 


96 




dw 


48 




dw 


24 




dw 


12 




dw 


6 



; Select group 

;Get sense switch ( f f on a Multio) 

.•Select console 



; Initialize the console 

; Select the reader/punch 
.•Initialize the reader/punch 



;Mask in upper three bits 
jMove into lower 3 bits 



; check for sense = 7 (Default setting) 
;Use default baud rate 

; Pointer to baud rate table 
; Table of words so double 
;Make a 16 bit number into (de) 

;Get a pointer into baud rate table 

;Get lower byte of word 

;Bump to high byte of word 

;Get upper byte, (de) now has divisor 

;Set baud rate 

;Use default baud rate 



; Enable divisor access latch 
;Set the baud rate in (de) 

;Set upper divisor 

;Set lower divisor 

; Clear Divisor latch 



;Set no interrupts 

; Clear status 

; Enable DTR and RTS outputs to terminal 

; Clear MODEM Status Register 
; Clear Line Status Register 
; Clear reciever buffers 



110 Baud 


000 


300 


001 


1200 


010 


2400 


011 


4800 


100 


9600 


101 


19200 


110 


DEFCON 


111 



endif 

if 

ttyset: call 
rnz 
call 

endif 



contyp eq 3 

fdtstat 

fdcin 
ttyset 



ttyset: 


if 

call 

re 


contyp eq 4 
dminit 




lxi 


d, dmaci 




lxi 


h,dmchan 




lxi 


b, 10 




call 
dcx 


movbyt 
h 




xra 


a 




sta 


serin+1 




jmp 


docmd2 


dmaci: 


db 


writem 




dw 
db 


ttyset 





dw 


1 




dw 


13f5h 




db 


senabl 




db 


1 



endif 



;Multi I/O, Decision I 

;2D/B console initialization 

; Clean input buffer 
;A11 empty 

;2D/B console 



;See if controller present 

;No controller, return 

; Console initialization sequence 

.•Command length 



;Clear serial input status 

;Do stuff and return 

;Zot monitor disable flag 
;Any non-zero byte will do 

;One byte 

;Magical place in monitor 

; Enable serial input 



********************************************************************* 

* * 



* Initialize the North Star Mother board, left serial port, right 

* serial port, and North Star RAM parity. 



* 
* 

* * 

************************************************************************* 



if 



contyp eq 6 



ttyset; 



xra 


a 


out 


6 


out 


6 


out 


6 


out 


6 


mvi 


a,30h 


out 


nspsta 


mvi 


a,60h 


out 


nspsta 


mvi 


a, acr 


call 


nspout 


mvi 


a,nslinl 


out 


nslsta 


mvi 


a, nslin2 


out 


nslsta 


xra 


a 


out 


nsldat 


in 


nsldat 


in 


nsldat 



; North Star drivers 

;Set up the parallel port + motherboard 
; Initialize mother board 



; Reset the parallel port input flag 
;Set the parallel port output flag 
; Force a CR out the parallel port 



; Initialize the left serial port 
;See the equates for bit definations 



; Clear the input/output buffers 





mvi 


a, nsrinl 






out 


nsrsta 






mvi 


a, nsrin2 






out 


nsrsta 






xra 


a 






out 


nsrdat 






in 


nsrdat 






in 


nsrdat 






if 


nsram ne 






mvi 


a,40h 






out 


nsram 






lxi 


h,0 




nset0: 


mov 


a,m 






mov 


m, a 






inr 


1 






jnz 


nset0 




nsetl : 


inr 


h 






jz 


nset2 






mvi 


a, (high $) + 


1 




cmp 


h 






jc 


nset0 






mov 


a,m 






mov 


b, a 






cma 








mov 


m, a 






cmp 


m 






mov 


m,b 






jz 


nset0 






ora 


a 






jz 


nsetl 






lxi 


d,700h 






dad 


d 






jnc 


nsetl 




nset2: 


mvi 


a,41h 






out 


nsram 






endif 






crtset : 








ptrset : 








ptpset: 








uclset: 








urlset : 








ur2set: 








uplset : 








up2set : 








lptset: 








ullset : 


ret 
endif 







; Initialize the right serial port 
;See the equates for bit definations 



;Clear the input/output buffers 



; Reset parity on North Star RAMs 
; Disable parity logic 

; Starting address 

;Get a byte 

; Rewrite, set proper parity 

;Bump the address pointer 



;Skip to the next memory page 

;Skip if all done 

;Is the pointer above us? 

;Set carry if pointer is <= our page+1 

; Reset the next pages parity 

;Test for a PROM or no memory 

;Save the original byte 

;See if this location will change 

;Test for a change 

; Restore the original value 

; Value complemented, must be RAM 

;Test for no memory present 

;Skip to the next page if no memory 

;Skip 2K bytes of 'PROM' 

;Do a page check if no overflow 

; Re-enable parity on the memory boards 



;Hull routines 



if 



lstset : 


call 


sellst 




mvi 


a,dlab 




out 


lcr 




lhld 


deflst 




mov 


a,h 




out 


dim 




mov 


a, 1 




out 


dll 




mvi 


a, stb+wls0+wlsl 



; North Star drivers 

(lsttyp ge 2) and (lsttyp le 5) ; Serial Multi I/O list drivers 

• ; Select printer group 
.•Access divisor latch 

;Get LST: baud rate divisor 

;Set upper baud rate 

;2 stop bits + 8 bit word 



out 


lcr 


mvi 


a,dtrenb+rtsenb 


out 


mcr 


in 


rbr 


xra 


a 


out 


ier 


ret 




endif 




db 


0,0ffh,0 


elen equ 


($-bios) 


if • 


codelen gt 1000 



;DTR + RTS enabled 
; Clear input buffer 
;No interrupts 



; Length of Cbios code 

•Test for SYSGEN problems 
•FATAL ERROR, system is too big for SYSGEN rev. 4.X" 
dbgtmp set codelen ;Cbios code length i <debug> 
endif 

if 
dbgtmp set 

endif 

ds 

if 
ds 
endif 



debug 
codelen 



512-($-buffer) 



;Cbios code length i <debug> 



; Buffer for 512 byte sectors 



(maxfd ne ) or (maxdm ne ) or (maxmw ne 0) 

512 ;Additional space for Ik sector devices 



***************************************************************** 

* * 

* Each bad map entry consists of 9 bytes: * 

Logical drive number (1 byte) 

Track number of bad sector (2 bytes) 

Sector number of bad sector (2 bytes) 

Track number of alternate sector (2 bytes) 

Sector number of alternate sector (2 bytes) 

* 



***************************************************************** 



badmap: ds 
dirbuf: ds 

tempfo: ds 



badsiz*9+l 
128 

16 



;32 entries + end marker 

.•Directory buffer 

;A little temporary buffer 



***************************************************************** 

* * 

* Allocation and checked directory table area * 

* * 

***************************************************************** 



if 
if 

tracks set 
dsm set 
alv set 



dn 



dn 



set 

rept 
alloc 

set 
endm 



maxhd ne 
hdpart ne 

hdtrks/hdlog 

hdsectp/8*tracks/4-l 

(dsm/8)+l 



maxhd*hdlog 
hd,%dn,%alv,0 
dn+1 



;Use non-standard partitioning 

; Number of tracks per partition 
.•Number of groups per partition 



.•Generate CKS and ALV tables 



else 



; Standard partitioning 



dn 


set 









rept 


maxhd 






if 


m26 ne 






alloc 


hd,%dn,252, 





dn 


set 


dn+1 






alloc 


hd,%dn,252, 





dn 


set 


dn+1 






alloc 


hd,%dn,256, 





dn 


set 
endif 


dn+1 






if 


ml ne 






alloc 


hd,%dn f 159, 





dn 


set 


dn+1 






alloc 


hd, %dn,161, 





dn 


set 
endif 


dn+1 






if 


m2 ne 






alloc 


hd,%dn,255, 





dn 


set 


dn+1 






alloc 


hd,%dn,255, 





dn 


set 


dn+1 






alloc 


hd,%dn,129 ( 





dn 


set 
endif 
endm 
endif 


dn+1 





endif 





if 


maxfd ne 


dn 


set 







rept 


maxfd 




alloc 


fd,%dn,75,64 


dn 


set 

endm 
endif 


dn+1 




if 


maxdm ne 


dn 


set 







rept 


maxdm 




alloc 


dm,%dn,75, 64 


dn 


set 

endm 

endif 


dn+1 




if 


maxmf ne 


dn 


set 







rept 


maxmf 




alloc 


mf ,%dn,22,16 


dn 


set 

endm 

endif 


dn+1 




if 


maxmw ne 




if 


mwpart ne 


tracks 


set 


mw;trks/mwlog 


dsm 


set 


mwsectp/8* tracks/4-1 


alv 


set 


(dsm/8)+l 


dn 


set 






;Use non-standard partitioning 

; Number of tracks per partition 
.•Number of groups per partition 



dn 



rept 

alloc 

set 

endm 



maxmw*mwlog 
mw, %dn, %alv,0 
dn+1 



; Generate CKS and ALV tables 



else 



;Use standard partitioning 



dn 


set 


trkoff 


set 


psize 


set 



rept 



8192/(mwsecpt/8)+l 
trkoff* (mwsecpt/8 ) 



maxmw 



blocks 


set 


mws ecpt / 8 *mwt 




rept 


blocks/8192 




alloc 


raw, %dn, 256,0 


blocks 


set 


blocks-psize 


dn 


set 
endm 


dn+1 


blocks 


set 


blocks/4 




if 


blocks gt 256 


blocks 


set 


blocks-1 


alv 


set 


(blocks/8 )+l 




alloc 


mw, %dn f %alv,0 


dn 


set 

endif 

endm 

endif 
endif 


dn+1 



; Generate some 8 megabyte ALV's 



;Use the remainder 



bioslen equ 



(high ($-bios))+l 



;BIOS length in pages 





if 




' FATAL 


dbgtmp 


set 




endif 




if 


dbgtmp 


set 




if 


dbgtmp 


set 




endif 




endif 



bioslen gt biosln ;Test for overflow 
ERROR, system overflow. BIOSLN must be at least' 
bioslen ; BIOSLN i <debug> 



debug 

biosln .-Current BIOSLNi <debug> 

biosln gt bioslen 

bioslen ; Optimal BIOSLNi <debug> 



end 



